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Preface 

The ATARI computer is one of the world's most 
popular computer systems. Its lightweight, desktop 
design and powerful version of the BASIC programming 
language place it at the forefront of the new wave of per- 
sonal computers for office, school and home use. 

Anything but a toy, its hardware configuration and 
system software make it a highly useful tool in the 
business environment and classroom as well as for prac- 
tical jobs around the home. 

In fact, the system software built into your ATARI 
computer is so flexible and versatile that the need for this 
book became apparent. There are so many computing 
tasks which can be accomplished with the ATARI system 
that an introduction to the many techniques is needed. 

Applications software are the programs which make 
a computer do what you want. This book is written for 
those newcomers and beginners, as well as advanced 
novices and student programmers, who would like to tap 
the vast resources available in the ATARI computer 
package. This book, it is hoped, will guide by example, in- 
struct, and provide insights into the many ways the 
BASIC language built into the ATARI computer can be put 
to use. 

This book is a companion volume to 31 New ATARI 
Computer Programs for Home, School & Office. 

—Alan North 
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Introduction 



This book is designed as an idea starter and thought 
provoker for beginners and newcomers, as well as ad- 
vanced novices and student programmers, who have read 
the manual which came with the ATARI Model 400 or 
Model 800 personal computer and have read something 
very elementary on BASIC programming and now need 
some good ideas. 

This handbook gives you 101 different, complete pro- 
grams which will stand alone and run by themselves for 
learning purposes or which can be, if you wish, incor- 
porated into larger sets of instructions to your computer. 

These programs are written to be typed into your 
ATARI 400/800 just as you find them here with no pro- 
gramming needed. We assume you know how to turn on 
your computer and how to go about typing in a program 
but you don't have to be a computer programmer to get 
started using these pieces of software. Many tips in this 
book, in fact, will be of interest to old-timers in the 
program-writing game since we have presented many 
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powerful new twists aimed at making the computer do 
more work more quickly. 

Amidst our 101 tips are countless secrets, shortcuts, 
tricks, hints, techniques and make-it-easier instructions. 
Each is intended to make you a more versatile program- 
mer and to make your programming effort lighter. Use this 
book to stimulate your thinking about how to approach 
various software problems. Use it to get good ideasfor 
new and different approaches to all your programming 
goals. As you grow and develop as a program writer, 
modify these programs and make your computer do even 
more! 



The printout 

As each program in this book was tested on an 
ATARI Model 400/800, it was printed on paper directly 
from the computer's program memory. In this manner, we 
have attempted to prevent those common typographical 
errors which occur when computer programs are typeset 
by hand and proofread. The human hand and eye have not 
come between the computer and the printed page. 

You should find no errors at all in the programs in 
this book. Should you find something which appears to 
be in error, please send a postcard or letter to the author 
in care of ARCsoft Publishers, P.O. Box 132, Woodsboro, 
MD 21798 USA. He would like to know of problems so 
they can be corrected in future editions of this work. 

As you read through this book, you will find very few 
uses of the BASIC word REM. REM stands for "remark" 
and is the BASIC instruction to the computer to "ignore 
this line." REMs are used by some programmers to pad 
out programs and make them look longer, and to include 
sometimes-useful reminders about what certain 
segments of a program do. The trouble is REMs waste 
lots of precious memory space and add considerably to 
the typing time when entering a program into the com- 
puter. 

The author's training in writing BASIC-language com- 
puter programs required a sharp editing pencil. REMarks 
and software explanations were out. Honing, fine-tuning 
and waste trimming were in. Use of coding-form program- 
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writing worksheets, such as the ATARI Computer BASIC 
Coding Form published by ARCsoft Publishers, was in. 
The objective always was — and still is — to make the most 
efficient use of available memory. 

Even though they may be headed toward the same 
goal, no two programmers will write the exact same list of 
BASIC program lines from scratch. As you load these 
pieces of software into your ATARI computer, you'll make 
modifications to suit your personal needs and interests. 
For instance, exact wording of PRINT statements can be 
changed. Or two or more programs can be combined into 
one grand scheme. Your applications for these programs 
will vary. 

Standalone vs. subroutine 

All of the programs in this book can be used as por- 
tions of larger lists of instructions to your computer. That 
is, they can be written in as GOSUB or GOTO objects. To 
do so, make appropriate changes to the first line (usually 
numbered 10 in this book) and the last line of each pro- 
gram. If you wish to create a subroutine, remember that 
every GOSUB must have a RETURN. RETURN must be the 
last line of a subroutine. 

If you work one of these programs into a larger set of 
instructions, be especially careful of your memory 
(variables) names. They must agree with and fit into those 
you are using in the main program. Also, be careful of line 
numbering. 

If you want to load more than one of these programs 
into your ATARI computer at the same time, be sure to 
use different sets of line numbers. 

Buzzer and clear screen 

The crooked, upward-pointing arrow used on the 
video display by the ATARI is not found on line printers. 
So, we have used the right-pointing bracket to represent 
that symbol in this book. In all cases, you will find a REM 
in the same line indicating exactly what we have done. 
For example, you may see a line like this: 

10 PRINT "}":REM CLEAR SCREEN 



13 



Such a line is an instruction to the computer to wipe 
everything from the video display screen. That is, clear 
the screen. 

To type in such an instruction, type in the line 
number, the word print and the first quotation mark. Then 
press the ESC key, press and hold the CTRL key, and 
press the CLEAR key. After that, type in the second quota- 
tion mark and the rest of the line. 

The crooked arrow display for screen-clear is ESC 
and CTRL and CLEAR. 

If you wish to make the internal buzzer sound off, use 
ESC and CTRL and the number 2 key. Here's a line which 
you might see in this book: 

10 PRINT "}":REM BUZZER 
Here, you type in the line number, the word PRINT and the 
first quotation mark. Then press ESC, press and hold 
CTRL and press 2. After that, type in the second quotation 
mark and the rest of the line. 

The crooked-arrow video display for buzzer is ESC 
and CTRL and 2. 

Other computers 

The 101 programs in this book will run on other com- 
puters such as the TRS-80 Models I, II, III, 16, Color, 
Pocket, Apple, Commodore PET, 64, VIC-20, MAX, Timex 
1000, Sinclair ZX-81, MicroAce, IBM Personal Computer, 
Texas Instruments TI-99/4A and many other systems. 

However, to do so you will have to make some minor 
modifications to program lines. Each computer hardware 
manufacturer offers a version of BASIC slightly different 
from all others. Thus, BASIC programs aren't exactly 
interchangeable from system to system. 

Video-screen graphics commands, especially, vary 
from machine to machine. Also, if you use other than an 
ATARI Model 400 or Model 800, line number, logical tests, 
multiplication symbols, print statements, and other in- 
structions may vary. If you want to run these programs on 
a computer other than the ATARI 400/800, check the 
owner's manual for that computer to see which BASIC 
words are built into that computer, and how they will work 
on that computer, before running. 
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Many programmers use the words ENTER and 
RETURN interchangeably when writing about typing pro- 
grams into a computer. You may spot examples of this 
common use in this book. When we say ENTER a program 
or press RETURN, we mean tell the computer you have 
ended a line of a program or of data and are sending the 
info in. 

By the way, the author would like to hear of sugges- 
tions you may have for improvements in future editions of 
this work or ideas you may have for future volumes in this 
series for the ATARI Computer. Please address your com- 
ments, suggestions, thoughts and ideas to the author in 
care of ARCsoft Publishers. 

Book parts 

Besides this Introduction, this book has seven impor- 
tant sections: Fun & Games, a set of new and different 
ideas you can put to use in writing games for your ATARI 
computer; 

Text on Text, programming tips for handling words in 
your ATARI; 

Gee Whiz, a group of quick-to-type programs you can 
use to excite your friends and family; 

Number Crunching, tips and tricks for handling 
numbers in your ATARI; 

Money Matters, interesting programs to help you 
handle your household budget as well as store and office 
routines for businessmen; 

Colorful Graphics, designed to help you get more 
from your machine; 

And a handy Appendix of BASIC words and error 
messages as used in the ATARI computers. 

Naturally, these sections have been arbitrarily di- 
vided and may not be exactly as you would have sorted 
the programs herein. These divisions are not hard and fast 
lines, never to be crossed. Rather, programs shown here 
for use in games might be useful in a business program. 
Or part of a business program might be useful in a 
classroom or in a game. Try them all. You'll learn 
something from each! 
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Fun & Games 



1 



Coin Toss 



Here's a handy way to settle arguments. Toss a coin. 
Only this time, let the computer do the work! 

Type in the program. Run it. The computer will report 
heads or tails after each toss. 

For a new toss, press the RETURN key on your com- 
puter's keyboard. 

Line 10 clears the screen. A random number — either 
zero or one— is generated at line 20 and tested to see if it 
is a zero. If it is, the computer prints heads. If not, the 
computer drops to line 30 where it prints tails. Lines 50, 
60 and 70 accomplish the restart when you press 
RETURN. 



Program Listing 



10 


PRINT ■ }" 5REM S< 


;reen 


20 


IF (INT<2*(RND<: 

"HEADS" sGOTO 40 


i)>))'- 


30 


PRINT "TAILS" 




40 


PRINT SPRINT 




50 


PRINT "FOR MORE, 


PRES 


60 


DIM K$( I ) ! INPUT 


Kf 


70 


CLR sSOTO 10 





CLEAR 

1 THEN PRINT 



RETURN 1 
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Traditional Dice Roll 



Here's a simple, brief way to roll and display results 
for two dice. 

Lines 100-110 get a random number between 1 and 6 
and store it in A. Lines 200-210 get another random 
number from 1 to 6 and store it in B. 

Lines 300-310 print the contents of A and B along 
with a suitable message. 
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Program Listing 



1(3 DIM K*( 1 ) 

20 PRINT "}";REM SCREEN CLEAR 

10® A=INT<7*<RND< 1 ) ) ) 

110 IF A<1 THEN 100 

200 B=INT<7*(RND< 1 ) ) ) 

210 IF B<1 THEN 200 

300 PR I NT " F I RST D I CE : " , A 

310 PRINT "SECOND DICE:",B 

400 FOR L=l TO 10s PRINT sNEXT L 

410 PRINT "TO ROLL AGAIN, PRESS RETURN 1 

420 INPUT K* 

430 GOTO 20 
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See Two Dice 



Here's a quick way to add real dice to any fun pro- 
gram you are designing for your Atari. 

This program rolls two dice and lets you see the 
results, as with real dice. This is especially useful in 
those games where it is important to see the value of 
each. 

The subroutine in lines 100-140 generates the 
necessary pair of random numbers. Lines 60, 70 and 80 
make the display you want. 

Note that lines 60 and 80 each have nine asterisks. 
Line 140 is RETURN and must be the last line in the pro- 
gram. 

After you type in and RUN the program, press any key 
on your Atari 's keyboard to roll the dice. 

Program Listing 

10 PRINT H >"«REM CLEAR SCREEN 

20 DIM K$( 1) 

30 PRINT "TO ROLL TWO DICE, PRESS RETURN' 

40 INPUT K$ SPRINT : PRINT 

50 GOSUB 100 
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60 PRINT "#****##*#" 

70 PRINT "* " ;DL5 " * " ?DRS " *' 

80 PRINT "#*#*##***" 

90 PRINT "PRINT 5 GOTO 30 

100 DL»INT(7*<RND< 1 ) ) ) 

110 IF DL<1 THEN 100 

120 DR~INT<7*(RND< 1 ) ) ) 

130 IF DR<1 THEN 120 

140 RETURN 
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See Four Dice 



Two dice not enough for your game? Here's how to 
see four dice after a roll! 

Naturally, this program works just like the program in 
tip number two except that the FOR/NEXT loop in lines 
50- 140 makes the Atari roll and display four times rather 
than two times. If you need six, eight or ten dice on 
display, change the number two in line 50 to three, four or 
five. 

Program Listing 



10 


PRINT 


" } " 8 PEN 


CLE A 


R S 


CREEN 




20 


DIN K* 


( 1 ) 










30 


PRINT 


" TO ROLL 


D I C 


E, 


PRESS 


RETURN" 


40 


INPUT 


K*: PRINT 


:PR 


INT 






50 


FOR L» 


1 TO 2 










60 


DQ=INT 


( 7* ( RND ( 


1 ) ) ) 








70 


IF D6K 


1 THEN 6 











80 


DFNINT 


( 7* ( RND ( 


1 ) ) ) 








90 


IF DR< 


1 THEN 80 








100 


PRINT 


" #########" 








110 


i PRINT 


" * " : DO 


ij" * 


11 R 
1 


DR?" * 


H 


120 


' PRINT 


" ****** 


***" 








130 


PRINT 












140 


NEXT 


L. 










150 


PRINT 


:CLR :Q 


OTO 


20 







20 
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Secret Message 



Secret messages can be lots of fun! They often are 
composed of codes in which letters of the alphabet have 
been replaced by numbers. 

In this easy-to-use program, the computer generates 
a list of pseudorandom numbers and assigns one number 
to each letter of the alphabet. You use the numbers, in 
lieu of letters, to write notes to your friends. 

There is very little chance of the same number being 
assigned to two different letters because available 
numbers range from zero to 999. 

When typing this program into your Atari , be sure 
to separate the alphabet letters with commas in line 100. 

By the way, note the nice two-column screen printing 
format! Line 250 does that. 



Program Listing 

10 PRINT "}"!REM CLEAR SCREEN 

20 DIM L$( 1 >, J*< 1 ) 
1 00 DATA A , E , C , D , E , F , <5, H , I , J , K , L , M , 

P , Q , R , S , T , U ■, V , W , X , Y , Z 
200 FOR N=l TO 13 
2 1 C» I NT ( 1 000 * ( RND ( 1 ) ) ) 
220 READ L* 

230 D=INT( 1000* < RND < 1 ) ) ) 
240 READ J* 



250 PRINT L$5 " " 
260 NEXT N 



D 



N , ■ 



Sample 


R 


uri 














A 981 






E 


203 










C 561 






D 


491 


o 


486 


P 


866 


E 662 






F 


61 


Q 


115 


R 


601 


G 536 






H 


92 


S 


263 


T 


3 '"■ 2 


I 421 






J 


763 


U 


654 


V 


962 


K 257 






L 


678 


w 


021 


X 


292 


M 662 






N 


249 


Y 


524 


Z 


623 
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Sound Off 



You can make your ATARI computer beep (or buzz, 
depending upon how you hear it) on command. 

Line 10 clears the screen. The FOR/NEXT loop in 
lines 20 to 50 make the ATARI sound its built-in beeper 10 
times. You can change the number of times the sound is 
made by changing the number 10 at the end of line 20. 
Line 30 actually prints the word buzz on the screen. Line 
40 makes the buzzer (or beeper, if you like) sound off. 

Program Listing 

10 PRINT " }" :REM CLEAR SCREEN 

20 FOR L=J. TO 10 

30 PRINT "EUZZ" 

40 PRINT " ) " sREM BUZZER 

50 NEXT L 
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Ring The Bell I 



This is the first of two programs designed to allow 
you to force sound from your ATARI computer. Here, we 
use the ASCII number 253 in the PRINT CHR$(/ASC// 
number) statement in line 30. 

Line 10 clears the text screen. The FOR/NEXT loop in 
lines 20 to 50 causes the buzzer (or bell or beeper, if you 
like) to sound. The number of times it sounds is con- 
trolled by the number five at the end of line 20. You may 
change that. 

Line 40 is a time-delay loop, placed here to slow 
down the repetition of the buzzer. The length of time in 
the delay is controlled by the number 100 in line 40. Use a 
number larger than 100 for more delay. A number smaller 
than 100 will reduce the delay. Remember this time-delay 
technique. You might like to use it in another program. 

Program Listing 

10 PRINT " } ,! .°REM CLEAR SCREEN 

20 FOR N=l TO 5 

30 PRINT CHR$(253) 

40 FOR T=l TO 100; NEXT T 

50 NEXT N 
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Ring the Bell II 



Here's another, slightly different version of our 
bell ringer program. This one allows you to set a time 
delay between rings. 

The N value in line 20 sets the actual number of 
repeat rings. 

The L value in line 40 establishes the time delay be- 
tween rings. To insert more time, increase the number 100 
in line 40. To shorten the time between beeps, lower the 
number 100 in line 40. 



Program Listing 

10 PRINT " }"5REM CLEAR SCREEN 

20 FOR N=l TO 5 

30 PRINT " }" SREM BUZZER 

40 FOR L=J. TO 1 00 s NEXT L 

50 NEXT N 
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Mystery Clues 



Want to create your own murder mystery? Figure out 
whodunit and write your program backwards from there. 
When your players make wrong guesses, give them tan- 
talizing clues. 

Here's a short program which you can load into your 
computer in a matter of minutes. Key it in and try it out. It 
shows how you can add clues to your mysteries. 

For simplicity, we assume here the Butler did it. Note 
that, in line 20, we are making him equal to X$. At line 30, 
the computer stops to ask you whom you think did it. Your 
answer is recorded in A$. 

In line 40, your answer, lodged in A$, is compared 
with the computer's already-certain knowledge that the 
Butler did it. A$ is compared with X$. If they agree, and 
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only if they agree, the computer displays the message, 
"You guessed it." If you got it right, things will end right 
there. 

If, however, you missed it, program execution (sorry 
about using that word in a murder mystery!) drops to line 
50 where we hear the computer, "Clue: servant." After 
deftly dropping that clue, the computer moves back 
and runs through the whole affair another time. It 
will keep running through it until you answer, "Butler," in 
response to its question in line 30. 

Program Listing 

10 PRINT M"SREM CLEAR SCREEN 

15 DIM Af <6>, X*(6) 

20 X*==" BUTLER" 

30 PRINT "WHODUNIT " 5 8 INPUT A* 

40 IF X*=A$ THEN PRINT "PRINT "YES, 

YOU GUESSED IT" SPRINT :<50T0 20 
50 PRINT SPRINT "CLUE; "," SERVANT" : PRINT 

SPRINT s GOTO 20 
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Original Hi/Lo Game 



Here it is. Where everybody started in micro- 
computer programming back in the Seventies. The first 
game ever played was a high-low guess-the-number 
routine. 

The computer selects a secret number. You try to 
guess it. The computer tells you whether or not you are 
too high, too low, or right on the number. 

Here's how it works: the secret number can be zero 
to 1000. Line 100 generates a random number (the secret 
number) and stores it. Line 210 asks you to guess the 
number. 

Lines 300-310 decide if you are right or wrong. Line 
220 keeps track of the number of attempts. 
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Program Listing 



10 PRINT "}"°REM CLEAR SCREEN 

20 T=0 

100 R=INT< 1000*(RND( :!.))) 

200 PRINT " }" :REM BUZZER 

210 PR I NT " GUESS THE NUN BER " « I N PUT B 

220 T=T+1 

230 PRINT :PRINT "THAT WAS TRY NO. u ; T 

300 IF E>R THEN PRINT "PRINT "TOO HIGH 

GUESS AGAIN" : INPUT BiGOTO 220 
310 IF B<R THEN PRINT : PRINT "TOO LOW 

GUESS AGAIN": INPUT B : GOTO 220 
400 PRINT " >" :REM BUZZER 
410 PRINT "YES ! YOU GOT IT" 
420 PRINT Ri" IS THE NUMBER" 
430 PRINT "YOU GOT IT IN " ? T i " TRIES" 
500 PRINT SPRINT SPRINT 
510 GOTO 20 
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Code Groups 



Need some secret codes for your latest sensitive 
mission? How about sets of five random letters for use in 
Morse code practice? 

This program has the computer generate an endless 
string of random combinations of five letters. 

Program Listing 

10 PRINT "J"! REM CLEAR SCREEN 

20 FOR L=l TO 5 

30 N=INT(91*<RND( 1 ) ) ) 

40 IF N<65 THEN 30 

50 PRINT CHR*<N) 5 

60 NEXT L 

70 PRINT sGOTO 20 
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Sample 


R 


un 




CYGQH 






MWHOJ 


XMIAJ 






CTWRQ 


BZPDO 






VFEZK 


REMSF 






HALVN 


NTVEA 






NXECR 


IDPLG 






PODAA 



KAFDH 
BTPNC 
QDFGN 
ANBWO 
RUNSX 
TPKII 
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60-Second Timer 



A one-minute timer can be very handy for fun-n- 
games. This easy-to-use clock "ticks" as it counts off 
seconds up to 60. When it reaches 60 seconds, it rings an 
alarm. 

The number of seconds counted can be changed by 
changing the number 60 in line 20. 

The clock can be calibrated by changing the number 
200 in line 50. Line 50 is a time-delay loop set for approxi- 
mately one second. 

Lines 70-90 provide a rapid burst of five beeps when 
the clock reaches 60 seconds. To change the length of 
this alarm, change the number 5 in line 70. 

Program Listing 



10 


PRINT " 


) " " REM CLEAR S 


20 


FOR T=i 


TO 60 


30 


PRINT " 


>" :REM BUZZER 


40 


PRINT T 


■ "SECONDS" 


50 


FOR L«l 


TO 200= NEXT L 


60 


NEXT T 




70 


FOR E-I 


TO 5 


80 


PRINT " 


■" SREM BUZZER 


90 


NEXT E 





26 
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Find Highest/Lowest 



Suppose we have a list of people and each person has 
been assigned a number or score. This program accepts 
the names and scores and sorts out the persons with the 
highest and lowest scores. Here's how it works. 

At line 20, the memory is DIMensioned to hold data. 
Lines 30-1 10 take in the info on each person. As each 
person's score is entered, lines 70- 100 determine if it 
is higher or lower than all previous scores. If higher or 
lower, it is so noted. 

To complete data entry, simply pressRETURNwithout 
data. That will prompt the computer, at lines 130 and 140, 
to print the lowest score and the highest score. 



Program Listing 

10 PRINT "}"::REM SCREEN CLEAR 

20 D I M N* < 20 ) , LN* ( 20 ) , HN* ( 20 ) » K* < 1 ) 

30 PRINT "}" sREM BUZZER 

40 PRINT "NAMEs ",: INPUT N* 

50 IP N$= M " THEN 120 

60 PRINT "SCORE: ",: INPUT S 

70 X=X+1 

80 IE X=l THEN LS*S«LN*»N**HS*S«HN«*N* 

90 IF S<LS THEM LS=SsLN*=N$ 

100 IF S>HS THEM HS=S!HN*=N* 

110 GOTO 40 

120 PRINT SPRINT 

130 PRINT LN*5" SCORED LOWEST AT "=LS 

140 PRINT HN*?" SCORED HIGHEST AT ";HS 

150 PRINT SPRINT I PRINT : PR I NT 

160 PRINT "TO DO MORE., PRESS RETURN" 

170 INPUT K$ 

180 CLR J GOTO 10 

27 
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Sorting Scores 



Here's how to sort a set of scores. Any numbers can 
be used. Zero is assumed to be lower than any positive 
number and a negative number is lower than zero. 

Key in as many numbers as you like. Then key a zero 
when you want your Atari to compute final results. Ob- 
viously, a zero cannot be in the set of numbers you are 
sorting since we use zero to get out of the input loop. 

At the end of the RUN, the computer will tell you 
which number is lowest and which is highest. 

Program Listing 



INPUT N 



10 


PRINT " 


i " s REM 


CLEAR SCREEN 


20 


DIM K$( I ) 






30 


PRINT " 


TYPE IN A SCORE: 


II ii i 

»i ' 


40 


IF N=0 


THEN 100 




50 


S=S-i-l 








60 


IF S=l 


THEN LI 


M=N!HN=N 




70 


IF N<U\ 


1 THEN 1 


_N=N 




80 


IF N>HI\ 


1 THEN 1 


HN=N 




9(3 


GOTO 30 


I 






100 


PRINT 








1 1 


PRINT 


"LOW Nl 


JMBER IS "51 


...N 


120 


PRINT 


"HIGH NUMBER IS " 


:Hr> 


130 


PRE- 


SPRINT 


s PRINT 




140 


PRINT 


"FOR A 


DIFFERENT" 




150 


PRINT 


"SET OF 


;r NUMBERS, " 




160 


PRINT 


"PRESS 


RETURN" 




170 


INPUT 


K$ 






180 


CLR SG 


OTO 10 






Sample Run 








RUN 


RETURN 






TYPE IN A 


SCORE 






22 


RETURN 






55 


RETURN 







28 



77 


RETURN 


11 


RETURN 





RETURN 



LOW NUMBER IS 11 
HIGH NUMBER IS 77 
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Keeping Game Scores 



Writing a computer football game? Spelling bee? 
Cave adventure? No matter what kind of fun you are 
preparing, you'll need a way to keep score. Here's how. 

The wealthy English duke has just been killed in our 
little mystery game. In lines 10 through 160 of 

our program listing, below, you play the game, attempting 
to find out whodunit. 

The trick here is in the scorekeeping. Noteline170.lf 
you guessed correctly in response to the queryinline160, 
at Iine170 thecomputer will give you credit by adding one 
point to your score stored in memory location R. It does 
that by comparing your Iine160 answer stored in P$ with 
the correct answer stored in A$. 

If you blew it and guessed wrong, the program drops 
below Iine170to line 180 where it increases your "wrong 
score" by adding one point to W. 

If you got a W+1 at line 180, the program moves back 
tolinelOOand gets you to try again. If you scored a victory 
and got an R+1 at Iine170,the program jumps to line 200 
where it stops to display your total right and wrong score. 
After that, it's back to line 40 for a complete new run- 
through. 

Program Listing 

10 PRINT ">" sREM CLEAR SCREEN 
20 DIM A*(7),B*(7),C*(7>,D*C7) 
30 DIM E*(7),F*( 7) , G* ( 7 ) , P* ( 7 ) 
40 S=INT(7*(RND< 1) ) ) 
50 IF S<1 THEN 40 
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60 FOR L=l TO S 

70 READ A* 

80 NEXT L 

90 RESTORE : PRINT "a*******************" 

100 PRINT "WHO KILLED THE DUKE ?" 

110 READ E*, C*,D*,E*,F*,G* 

120 RESTORE 

130 PRINT SPRINT "WAS IT THE..." 

140 PRINT B*,C$,D$,E*»F*,G$ 

150 PRINT SPRINT " >":REM BUZZER 

160 PRINT "WHODUNIT "?: INPUT P$ 

170 IF A*=P* THEN R=R+1 : PRINT 

: PRINT "OK YOU ARE RIGHT" 

SPRINT "IT WAS THE "5 A*! SOTO 200 
180 PRINT ".PRINT "NO I NOT THE B ;P*sW=W+l 

SPRINT s GOTO 100 
200 PRINT 

210 PRINT "YOUR SCORE IS..." 
220 PR I NT R : " R I GHT " , W \ " WRONG " 
230 PRINT SPRINT sGOTO 40 
300 DATA BUTLER , NANNY , GARDNER , BURGLAR 

, SON, WIFE 
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Batting Average 



Once you know the number of times you were right 
and wrong in a game, as in Tip Number 15 , it's fun to 
convert those raw numbers to a batting average. Numbers 
right and numbers wrong take on a new meaning when 
changed to a batting average. Folks seem to be able to 
understand a batting average better. 

Our program, starting at line 900, is a partial listing 
designed to be tacked onto the end of your longer game 
program to display the final results of play. It will show 
the number of tries, number of right answers, percentage 
right, and batting average. 

You'll want to test load this program so add lines 10 
and 800 as shown. Line 800 will give you the R and T 
values you'll need going into the program at line 900. 

30 



Program Listing 

10 PRINT "}"!R E M C LEAR S C R E E N 

800 P R I N T " N U M E E R R I G H T : " ; 

810 INPUT R 

820 PRINT "NUMBER TRIES: " ; 

830 INPUT T 

900 PRINT R!" RIGHT" 

910 P R I NT " I N " ? T 5 " T R I ES " 

920 D=R/T : P= 1 00*D s B= I NT ( 1 0*P ) 

930 PR I NT " THAT ' S " 5 P 5 " PERCENT " 

940 PRINT "YOU ARE BATTING "SB 
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Computer Rating Service 



Of course, once you know a player's batting average 
it still might need some interpretation. In this program, 
the computer takes a look at a batting average and makes 
a comment. 

Remember that this listing, starting here with line 
800, is a partial program to be tacked on the end of a 
longer game. Note that, at 800, you already have values for 
G (number right) and E (number of tries). Line 810 converts 
those raw numbers to a batting average (H). 

Program Listing 

10 PRINT " > 



700 


PRINT "NUMBER RIGHT: "? 


710 


INPUT G 


720 


PRINT "NUMBER OF TRIES: 


730 


INPUT E 


800 


PRINT 65" RIGHT IN " ;E5 


810 


H=IMT( (G/E)*1000> 


820 


PRINT "YOU ARE BATTING 


830 


PRINT "YOU ARE " \ 


840 


IF H<100 THEN GOTO 91.0 


850 


IF H<300 THEN GOTO 920 


860 


IF H<500 THEN GOTO 930 



TRIES" 

;h 
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870 


IF H< 


880 


IF H< 


9(30 


PRINT 


910 


PRINT- 


920 


PRINT 


930 


PRINT 


940 


PRINT 


950 


PRINT 


960 


PRINT 


970 


END 



700 THEN GOTO 940 

900 THEN GOTO 950 
" H A I... L. F F AME " s G T 960 
"THE PITS" 5 SOTO 960 
"POOR" 5GOTO 960 
"AVERAGE" I GOTO 960 
"TOP NOTCH" SQOTO 960 
"DAMN NEAR PERFECT! " 
"YOUR BATTING AVERAGE IS 
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Box Score 



To dress up scores during and at the end of a game 
program, use this method of putting those scores in a 
box. The box around the score will highlight it and jazz up 
your video display. 

Program Listing 

10 PRINT "}"JREM CLEAR SCREEN 
20 DIM N*(20> ,S$ <8> 



30 


PRINT " 


' PLA 


YER ? 


S NAME 8 " ; 


40 


INPUT N$ 






50 


PRINT " 


1 PLA 


YER' 


S SCORE: " j 


60 


INPUT £ 


^ 






70 


PRINT 








80 


5*=STR1 


><S) 






90 


LN=LEN v 


N* ) 


+L..EN 


( S$ ) 


100 


LT=LNH 


■ 1 4 






1 1 


FOR L» 


= 1 T 


LT 




120 


PRINT 


" * " 


? 




130 


NEXT L 








140 


PRINT 








150 


PRINT 


"# 


" ;N* 


5"'S SCORE: 


160 


FOR L= 


-1 T 


LT 




170 


PRINT 


"*" 


5 




1S0 


NEXT L 








190 


PRINT 


SPRINT 


:GOTO 30 



;$;" *" 
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Sample Run 



* EDWARD'S SCORE:: 1234 * 
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Text On Text 
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Create a Quiz 



One of the most fascinating uses for your Atari is 
in having it carry on a video conversation with your 
friends, relatives and neighbors. One useful way to pro- 
mote such conversation is through a quiz. An instruc 
tional, educational quiz, such as we have here. 

Quiz data— the computer's storehouse of know- 
ledge—is in lines 20 to 70. Be careful, when you type 
them into your Atari , to include the commas separating 
the two halts of each data line. Spelling and spacing must 
be exact. 

Lines 90 and 100 obtain a random number in the 
range of 1 to 11. Line 110 selects the data line for a ques- 
tion. Lines 120 through 140 get the appropriate word 
FIRST, SECOND, THIRD, FOURTH, FIFTH or SIXTH from 
the selected data line. Lines 160 to 180 print the quiz 
question on the screen, while line 190 reads the DATA 
line to learn the correct answer. You provide your 
response when the computer asks for it at line 200. Lines 
220-240 decide whether you are right or wrong. 

Of course, the quiz can be made much longer. In this 
example, it could be expanded to encompass all past U.S. 
presidents. 

Program Listing 

10 PRINT "}"«REM CLEAR SCREEN 

15 DIM S$(9), C$(2Q) ,D$<20) 

20 DATA FIRST, GEORGE WASHINGTON 

30 DATA SECOND-, JOHN ADAMS 

40 DATA THIRD, THOMAS JEFFERSON 

50 DATA FOURTH, JANES MADISON 

60 DATA FIFTH., JAMES MONROE 

70 DATA SIXTH, JOHN QUINCY ADAMS 

80 PRINT "HOW MANY U.S. PRESIDENTS" 

85 PRINT "CAN YOU NAME" 

90 R= I NT ( 1 2* ( RND ( 1 ) ) ) 

100 IF R<1 THEN 90 

110 IF INT<R/2>-R/2 THEN R=R+l 
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120 FOR L=l TO P 

130 READ S* 

140 NEXT L 

150 PRINT :PRTNT 

160 PRINT "WHO WAS THE" 

170 PRINT S* 

180 PRINT "PRESIDENT OF THE U.S." 

190 READ C$ 

200 INPUT D* 

210 PRINT 

220 IF D*=C* THEN PRINT "THAT'S CORRECT 

• GOTO 240 
230 PRINT "THAT'S WRONG" 
240 PRINT "THE " ? S* ( " PRESIDENT WAS " 
250 PRINT C* 
260 RESTORE 
270 PRINT SPRINT 
230 GOTO 90 
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Killing Time 



Sometimes, it may seem to you as if the computer 
will never get to the result of a job. You understand the 
processing delay but your non-computer friends may not. 
They could be confused by the wait and think the com- 
puter is "broken." 

To keep their minds off the slowness, give them 
something to look at while the computer is "thinking." 

The added, extra lines, numbered 50, 60, 70 and 80, 
take up more processing time but make for less confu- 
sion. Computing may take a bit longer but your fun will be 
increased. 

If you delete lines 50-80 you'll see how the program 
runs faster but the blank screen is confusing. 

Program Listing 

10 PRINT ">"sREN SCREEN CLEAR 

20 PRINT "GIVE HE A NUMBER "3; INPUT N 
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30 FOR L»l TO M 

40 X = >'+L 

50 FOR T=l TO 100: NEXT T 

60 PRINT "}" :REM SCREEN CLEAR 

70 FOR T=l TO 100 s NEXT T 

30 PRINT " I AM THINKING" 

9(3 NEXT L 

100 PRINT " >":REM SCREEN CLEAR 

110 PRINT "I HAVE THE ANSWER" : PRINT 

120 PRINT "THE TOTAL OF ALL NUMBERS' 

130 PRINT "FROM J. TO B 5N$" IS R ?X 

200 PRINT : PR I NT : PRINT 

210 CLR sGOTO 20 
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Word-Error Trapping 



The same kind of error trapping is available for 
strings. Suppose the program, as in this example, asks at 
line 10 for a word. It is looking for YES or NO. If it gets a 
YES, then line 20 sees that it got what it wanted and 
moves operations along to line 100. 

If it gets a NO, then line 20 hasn't received what it 
wants so program execution moves on to line 30. Here, at 
line 30, the program finds something useful and shoots 
operations down to line 200. 

If, however, neither YES nor NO were entered at line 
10, then neither lines 20 nor 30 would be satisfied so ac- 
tion would drop to line 40. Here, the error is trapped by 
commanding the operator to give one of the two correct 
answers. Then, at line 50, the operation is returned to line 
10 for a new try at the correct input. 

Program Listing 

5 DIM A$>3) :PRINT " > " : REM CLEAR SCREEN 

10 PRINT "WANT TO PLAY AGAIN ",■: INPUT A* 

20 IF A*="YES" THEN 100 

30 IF A*= B N0" THEN 200 

40 PRINT "PLEASE ANSWER ONLY YES OR NO" 
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50 PRINT sGOTO 10 

100 PRINT "THANK YOU FOR THAT " ; A* 

110 PRINT SPRINT :GOTO 10 

200 PRINT "THANK YOU FOR THAT ■ *,A* 

210 PRINT :PRINT if SOTO 10 
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Character Numbers 



This brief program displays the ASCII value for each 
keyboard character, side-by-side with the character it 
stands for. You will be able quickly to tell what each 
number prints. 

Line 40 is a timing loop to slow down the presenta- 
tion so you can digest the information. To make it even 
slower, increase the number 400 in line 40. To make it 
faster, decrease the number 400 in line 40. 

The computer's chime will ring after it reaches 255. 
Line 60 provides the beep. 

Program Listing 

10 PRINT MM REM SCREEN CLEAR 

20 FOR N=;0 TO 255 

30 PRINT N,CHR*(N) 

40 FOR T»l TO 400: NEXT T 

50 NEXT N 

60 PRINT MM REM BUZZER 
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One-Time Password 



If you don't want unauthorized use of your programs, 
insert a requirement that a user know a password. This 
particular routine allows only one try at entering a correct 
password. 

For our password, we have selected "elephant" and 
stored it in line 30. You can change the password to 
whatever you like. 
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If a correct attempt at entering the password is 
made, program action will progress to line 100. Other- 
wise, action drops to line 40 and action ends. 

Program Listing 

1(3 PRINT "}"SREM CLEAR SCREEN 

15 DIM A$(8) 

20 PRINT "WHAT IS THE PASSWORD " ? a INPUT A* 

30 IF A*- "ELEPHANT" THEN 1.00 

40 END 

10S PRINT "YOU GOT IT RIGHT" 

110 PRINT "NOW THE PROGRAM WOULD RUN" 
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Three-Tries Password 



Here the software lets you try three times to enter the 
correct password. You don't get to go forward with the 
program if you don't get it right in three tries. 

Again the password is "elephant" and is stored in 
line 30. You can change the password to whatever suits 
you. 

Lines 40 to 60 allow the three attempts. If no good 
after three tries, then END. 

Program Listing 

10 PRINT " } M :REM CLEAR SCREEN 

15 DIM A* (8) 

20 PRINT "WHAT IS THE PASSWORD "; : INPUT A* 

30 IF A»-" ELEPHANT" THEN 100 

40 B=B+1 

50 IF B=3 THEN END 

60 GOTO 20 

100 PRINT "YOU GOT IT RIGHT" 

110 PRINT "NOW THE PROGRAM WOULD RUN" 

40 
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Multiple Passwords 



Here's a really complex password entry system. It 
has a unique "account number" and a password for each 
person. This will allow several different persons access to 
the program but each person will have a different com- 
bination to the lock! 



account 




number 


password 


12345 


zebra 


23456 


goose 


34567 


trout 


45678 


snake 



Each individual user must correctly enter his unique 
account number and then his own personal password. If 
account number is wrong, then the password never can 
be right. If account number is okay but password doesn't 
match, the user gets no run. 

You can add users to this program by adding lines to 
the 300-340 subroutine. 

Program Listing 

10 PRINT " 5 " = REM CLEAR SCREEN 

15 DIM PS* (5) , PW* (5 ) 

20 FOR L=l TO 3 

30 PRINT "YOUR ACCOUNT NUMBER: ", : INPUT UA 

40 GOSUB 300 

50 PRINT " PASSWORD: " , , : INPUT PS* 

55 IF PS*-"" THEN 50 

60 IF PS*«PW* THEN 100 

70 NEXT L 

80 END 

100 PRINT "YOU GOT IT ALL RIGHT" 

110 PRINT "HOW THE PROGRAM WOULD RUN" 

120 END 

300 IF UA= 123 45 THEN PW$==" ZEBRA" 

310 IF UA-23456 THEN PW**" GOOSE" 
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320 


IF 


UA=345 


o ? 


THEN 


PW$= 


= "TR< 


)UT ' 


330 


IF 


UA=456 


78 


THEN 


PW$= 


'■"SUf 


WE ,! 


340 


RETURN 
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Name In A Box 



Put your name up in lights! Or, at least, on the video 
display screen of your Atari computer. 

This short program creates a box on the screen and 
puts a name you have specified into that box. The name is 
highlighted. 

You can change what the box is composed of by 
changing the asterisks in lines 80, 110 and 130. 

Program Listing 



10 PRINT ■ }"!REM SCREEN CLEAR 




20 DIM N$<26> , K*< 1 ) 




30 PRINT i PRINT "WHAT IS YOUR 


NAME" 


40 INPUT N$ 




50 LN=LEN ( N$ ) : LT=LN+4 




60 PRINT SPRINT " } " : REN CLEAR 


SCREEN 


70 FOR L=l TO LT 




80 PRINT "*" 5 




90 NEXT L 




100 PRINT 




110 PRINT "* " ;N*r *" 




120 FOR L---1 TO LT 




130 PRINT "*" ; 




140 NEXT L 




150 FOR L~l TO 10 




160 PRINT 




170 NEXT L 




180 CLR S60TO 20 
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Entering: Zero Stop 



Here's another way to conclude an entry loop: have 
the computer be on the lookout for a plain zero. When a 
zero is entered, the computer will jump out of the entry cy- 
cle and on to further action. 

This program totals numbers as they are added and 
accumulates them in memory location B. If one of the 
numbers entered is a zero alone, then line 110 will spot it 
and send the computer on down to line 200, breaking the 
entry cycle. 

Naturally, you can't use a zero in a string of numbers 
to be added since zero causes the computer to quit enter- 
ing and get on with displaying. 

Program Listing 

10 PRINT "}"::REM SCREEN CLEAR 

20 E=0 

100 PRINT "GIVE ME A NUMBER" : INPUT A 

110 IF A=G> THEN 200 

120 E=B+A 

130 PRINT :GOTO 100 

200 PRINT SPRINT : PRINT 

210 PRINT "THE TOTAL OF THOSE NUMBERS 

IS " 5 B 
300 PRINT SPRINT : PRINT = PR I NT 
310 GOTO 20 
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Entering: Letter Stop 



One way to conclude an input series, and get out of 
its entry loop, is to use a key letter to promote a jump. In 
this brief example, we input numbers, at line 100, as 
string values. If we give the computer an X rather than a 
number, it will jump down to line 200 for new action. 

Numbers keyed in are stored first as strings. Then 
line 120 changes them to number values for the addition 
in line 130. 
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Program Listing 

10 PRINT H > H ".REM CLEAR SCREEN 

20 CLR 

30 DIM A* (20) 

100 PRINT "GIVE ME A NUMBER s ",: INPUT A$ 

110 IF A$="X" THEN 200 

120 B=VAL < A$ ) 

130 OC+B 

140 GOTO 100 

200 PRINT SPRINT : PRINT 

210 PRINT "THE TOTAL OF THOSE NUMBERS 

IS " ; C 
300 PRINT : PRINT : PRINT : PRINT 
310 GOTO 20 
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Title Billboard 



This program opens a light window against a dark 
background. It can be placed anywhere on the graphics 
screen. 

Move the window by changing the range of values for 
X and for Y in lines 1030 and 1040. 

Move the lettering around by changing the PLOT and 
DRAWTO locations specified in lines 1090 to 1290. 

Line 1300 is a freeze-frame, used to hold the picture. 
It is an endless loop which will remain forever at line 1300 
until you press the BREAK key. Remember how to make 
this freeze-frame. You might like to use it in some pro- 
gram in the future. 

Program Listing 



1000 


GRAPHICS 


10 




107*0 


COLOR 1 






1030 


FOR X=15 


TO 


75 


1040 


FOR Y=10 


TO 


45 


1050 


PLOT X,Y 






1060 


NEXT Y 






1070 


NEXT X 
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1080 


COLOR 8 


1090 


PLOT 20,20 


1 1 00 


DRAWTO 30,2© 


1 1 1 


DRAWTO 25,20 


1 1 20 


DRAWTO 25,30 


113E 


PLOT 35 , 20 


1140 


DRAWTO 35,30 


1150 


PLOT 40,20 


1160 


DRAWTO 50,20 


1 1 70 


DRAWTO 45,20 


1 1 80 


DRAWTO 45,30 


1190 


PLOT 55,20 


1200 


DRAWTO 55,30 


1210 


DRAWTO 60,30 


1220 


PLOT 65,20 


1230 


DRAWTO 70,20 


1240 


DRAWTO 65,20 


1250 


DRAWTO 65,25 


1260 


DRAWTO 70,25 


1270 


DRAWTO 6'n,25 


1280 


DRAWTO 65,30 


1290 


DRAWTO 70,30 


1300 


GOTO 1300 
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Marching Numbers 



This little program does a big job! It creates the unusual 
display of numbers from one to nine marching across the 
screen. Try it; you'll like it. 



Program Listing 

10 PRINT "}"IREM CLEAR SCREEN 

20 X=0 

30 X = X + 1 

40 IP X>9 THEN 20 

50 PRINT X; 

60 GOTO 30 
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Wipeout! 



Warning: handle with care! 

Careless operation of this program can cause you a lot 
of extra work. 

Key in the program. Run it. When it asks for the 
password, be sure to give it what it wants or it will erase 
itself. That's right, the entire contents of program memory 
down the tubes! 

Here's how it works: 

The password, in this case Tracey , is asked by line 20. 
You give it a password. In line 30, your answer is com- 
pared to the true password. If correct, action goes to line 
50. If incorrect, the program goes to line 40. 

The NEW statement in line 40 erases everything from 
program memory. 

You can change the password in line 30 to any letters, 
numbers or keyboard symbols of your choice. Watch out 
when testing. A wrong password can cause a lot of retyp- 
ing. 

Program Listing 

10 PRINT ")"sREM CLEAR SCREEN 

15 DIM P$<20> 

20 PRINT "WHAT IS THE PASSWORDS "; 

s INPUT P$ 

30 IF P*=" TRACEY" THEN 50 

40 NEW 

50 PRINT "CORRECT" 

60 PRINT P$?" IS THE PASSWORD" 
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Sentence Writer 



Practice your English! 

Exhibit your knowledge of nouns and verbs. This 
program leads the computer to solicit individual words from 
you and use those words to create sentences. 
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Besides helping you better understand verbs, nouns 
and simple declarative sentence structures, the program 
demonstrates the computer's ability to simulate 
conversation and communication. 

Lines 20, 30 and 40 take in the words. 

You may modify the program to suit your own interests 
or needs. 

Program Listing 

10 PRINT ";"3REM CLEAR SCREEN 

15 DIM N*< i5>«V*< 15),S$< 15>,K*<1) 

20 PRINT "A PLURAL. NOUN! »,s INPUT N* 

30 PRINT "A VERB I ",,! INPUT V$ 

40 PRINT "A SINGULAR NOUN : ",: INPUT S* 

50 PRINT SPRINT 

60 PR I NT " THE " ; M* |" " ; V* 8 " " ; S* ; " . " 

70 FOR L=l TO 10: PRINT :NEXT L 

80 PRINT "PRESS RETURN" 

90 INPUT K* 

10© CLR ! GOTO 10 



Sample Run 



A PLURAL NOUN = ? 

DOGS 

A VERB = ? 

LOVE 

A SINGULAR NOUN = ? 

FOOD 

THE DOGS LOVE FOOD. 

A PLURAL NOUN = ? 

BOXES 

A VERB = ? 

HOLD 

A SINGULAR NOUN = ? 

WATER 

THE BOXES HOLD WATER 
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Categorizing 



A large quantity of numbers can be categorized and 
thereby cut down into a smaller quantity of numbers. See 
our example: it takes test scores and divides them into 
ranges labeled A, B, C, D, and F. 

The program assumes exam or test scores in a range 
of zero to 100. The letter grades include zero to 59, F; 
60-69, D; 71-79, C; 80-89, B; 90-100, A. 

Key in as many scores as you like and then enter the 
letter X to stop the entry cycle. 

Lines 100-140 sort all scores into the A through F 
categories. Lines 150-170 sort highest and lowest scores. 
Line 200 finds mid-range and average scores. 

Program Listing 



I ME 



10 PRINT "}":REM CLEAR SCRE 


EN 


20 DIM G$< 10>,K$< 1 ) 




30 PRINT "ENTER A GROUP OF 


SCORES" 


40 PRINT "FROM TO 100, ONE AT A TI 


50 PRINT "ENTER X AFTER LAS 


T SCORE" 


60 PR I NT s PR I NT " SCO RE ! " § 


: INPUT G* 


70 IF G$="X" THEN 200 




80 G=VAL(Sf) 




90 N*N+1 




100 IF G<60 THEN F=F+l«SOTC 


' 150 


110 IF G<70 THEM D=D+13GOTC 


« 150 


120 IF G<80 THEN OC+lsGOTO 


' 150 


130 IF S<90 THEM B=B+1 : GOTO 


■ 150 


140 A=A+1 




150 IF N-l THEN L«S«H»G 




160 IF G<L THEN L=G 




170 IF G>H THEN H=G 




180 S=S+G 




190 GOTO 60 




200 P=S/N s M=L+ ( ( H-L )/2) 




210 PRINT "}"5REM SCREEN CLEAR 


220 PRINT "THERE WERE ";N;" 


SCORES" 


230 PRINT "RANGING FROM "?L 


; " TO " ; H 
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240 


PRINT 


SPRINT 


"MID-RANGE SCORE:" ,|*| 


250 


PRINT 


"AVERAC 


5E SCORES " ,P 


260 


PRINT 


SPRINT 


"TOTALS FOR EACH LETTER 




GRADE : 


, M 




270 


PRINT 


SPRINT 


" A s " , A 


280 


PRINT 


■ E s M , B 




290 


PRINT 


" C ! " , C 




300 


PRINT 


■ D 5 " , D 




3 1 


PRINT 


" F s " , F 




400 


PRINT 


SPRINT 


SPRINT 


410 


PRINT 


"FOR MC 


>RE, PRESS RETURN" 


420 


INPUT 


K$ 




430 


CLR 5 GOTO 10 
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Alphabet Soup 



Sure, everybody knows there are 26 letters in the 
alphabet. But, do you know which letter is number 20? 
Number 5? Number 17? Well, your Computer knows! 

Type in this short ready-to-run program. RUN it. The 
computer will spit out number-and-letter combinations all 
day long. The number on the left is the position in the 
alphabet of the letter on the right. 

It's a fun way to demonstrate to your friends just how 
"smart" the computer is! 

Program Listing 



SCREEN 



10 


PRINT " } " sREM CLEAR 


20 


DIM X$<1) 


30 


P=INT(91*(RND< 1 ) ) ) 


40 


IF P<65 THEN 30 


50 


X$=CHR*(P) 


60 


PRINT P-64 5 " : " , X* 


70 


CLP 


80 


GOTO 20 
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Sample Run 






21: U 


17: 


Q 


3: C 


11: 


K 


25: Y 


8: 


H 


6 : F 


10: 


J 


2: B 


7: 


G 



19: S 

18: R 

14: N 

20: T 

5: E 

19: S 
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Create A Table 



This program generates a table of values, as a 
demonstration on how to set up a table on the video 
display. 

Subroutine lines 900 and 910 generate random 
numbers in the range of zero to 99. Lines 20 and 30 find 
how many times through the random number generator it 
takes to get a number greater than 50. The answer is 
stored in A. 

Lines 40 and 50 do it again and store the answer in B. 
Lines 60 and 70 do it and store in C. 

Line 10 prints the table heading and line 100 displays 
the results. Line 110 causes the whole operation to repeat 
until you have a table of 20 lines on the screen. 

Program Listing 

5 PRINT ">" :REM SCREEN CLEAR 

1 P R I N T " A " , " B " ., " C " : P R I N T 

2(3 GOSUB 900 

30 IF X>S0 THEN A^A+UGOTO 20 

40 GOSUB 900 

50 IF X>50 THEN B"B+liGOTO 20 

60 GOSUB 900 

70 IF X>5© THEN C=C+1 sQOTO 20 

100 PRINT A»B,C!IF T=*19 THEN 200 

110 A=0!B=0!C=0sT=T+lsGOTO 20 

20(3 GOTO 200 

900 X= I NT > 1 00* ( RMD ( 1 ) ) ) 

910 RETURN 
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Question & Answer 



Here's how to use the DATA statement, and the com- 
puter's ability to, search for data, to create a Q&A. 

We put DATA in lines 20-130. It could be anywhere in 
the program- For instance, at the end at lines 400-510. 

The computer sees two items in each data line. Pro- 
gram lines 140 and 160 force the machine to take only 
odd-numbered data from the list. That is, S$ in line 180 is 
always the first piece of data in a data line. And C$ in line 
210 is always the second item in a data line. Line 230 
checks to see if you answered the line 220 question cor- 
rectly. 

Program Listing 

10 PRINT ">"sREM CLEAR SCREEN 
15 DIM S$<9), C*(2),D*(2> 
20 DAT' A J ANU A R Y , 3 1 
30 DATA FEBRUARY, 28 
40 DATA MARCH, 31 
50 DATA APRIL, 30 
60 DATA MAY, 31 
70 DATA JUNE, 30 
80 DATA JULY, 31 
90 DATA AUGUST, 31. 
100 DATA SEPTEMBER, 30 
110 DATA OCTOBER, 31. 
120 DATA NOVEMBER, 30 
130 DATA DECEMBER, 31. 
140 R=INT<25*<RND< 1) ) ) 
150 IF R<1 THEN 140 
160 IF INT<R/2)=R/2 THEN R=R~1 
170 FOR L=l TO R 
180 READ S* 
190 NEXT L 

200 PRINT "MONTH IS " ; S* 
210 READ C* 

220 PRINT "HOW MANY DAYS " ; : INPUT D* 
230 IF D*=C* THEN PRINT : PRINT "CORRECT 
sSOTO 300 
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240 PRINT SPRINT "WRONG" 

30(3 PRINT "NUMBER OF DAYS IS ■ I 

31(3 RESTORE 

320 FOR L~l TO 5 s PRINT :NEXT L 

330 CLR (GOTO 15 
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Gee Whiz 
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Gee Whiz I: Smart Adder 



These six programs, in this section of the book, make 
up our Gee Whiz series. One of the fun ways to use your 
Atari is in wowing your friends. Next time they ask, 
"But, what can it do?", show them its uncanny abilities at 
adding, spelling, writing upside down, even cracking 
jokes. Try these six Gee Whiz programs on your friends. 
You'll love their reactions. 

Smart Adder is the first in the series. When your 
neighbor drops in for a cup of coffee, bring out the Atari 
for a demonstration of its lightning speed. 

This program adds long strings of numbers in a flash. 
You give the computer a number. It starts at 1 and adds all 
numbers up to and including your number. For instance, if 
you give it a five, it will add 1 plus 2 plus 3 plus 4 plus 5 
and display the result. 

Ask your neighbor how fast he or she can add all the 
numbers to 100. It should take several minutes. While 
he's working on it, let your Atari do it in a split second. 
Your neighbor's reaction is bound to be, "Gee whiz!" 

Program Listing 

10 PRINT "}" sREM CLEAR SCREEN 

20 PRINT "GIVE ME A NUMBERS " 5 s INPUT N 

30 IF N<1 THEN 20 

40 FOR L=l TO N:X=X+l_:NEXT L 

50 PRINT "!•"". REM BUZZER 

60 PRINT "THE TOTAL OF 1 TO ";N;" IS " f J 

70 PRINT SPRINT i CL.R :GOTO 20 



38 Gee Whiz II: Three-Digit 
Mystery 



Have your neighbor secretly select any three-digit 
number in which all three digits are the same. Then have 
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him tell the computer only the sum of those three digits. 
The computer will identify his secret number! 

Program Listing 

10 PRINT " } " s REM SCREEN CLEAR 

20 PRINT "SELECT A THREE-DIGIT NUMBER" 

30 PRINT "ALL THREE DIGITS THE SAME" 

40 PRINT 

50 PRINT "ADD THE THREE DIGITS TOGETHER' 

60 PRINT 

70 PRINT "WHAT IS THE SUM" 

80 PRINT "OF THE THREE DIGITS "5 

90 INPUT N 

100 IF N<3 OR N>27 THEN 90 

110 <&=37#N 

120 PRINT : PR I NT 

130 PRINT "}":REM BUZZER 

140 PRINT "YOUR NUMBER IS " ?<S 

150 PRINT SPRINT 5 GOTO 20 



39 Gee Whiz III: Yes/No 
Decision Maker 

This is handy for the busy executive who doesn't 
have time for decisions. 

Line 10 clears the screen. Line 20 generates a ran- 
dom number from zero to 100. Line 30 selects a yes 
answer if the random number is greater than 49. Other- 
wise, line 40 chooses a no answer. 

Program Listing 

10 PRINT "}"sREM SCREEN CLEAR 

20 X=10S*< RNDC 1 ) ) 

30 IF X>49 THEN PRINT " YES "s GOTO 50 

40 PRINT "NO" 

50 END 
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Gee Whiz IV: First 
Alphabet Spotter 



There are 26 letters in the alphabet. Each has a 
number. For instance, number 1 is A. Number 20 is T. This 
Gee Whiz program has the computer ask you for a number 
from 1 to 26 and then, faster than a jackrabbit, tell you 
what letter it goes with. 

Naturally, you'll know how it works but to your non- 
computer friends it will seem like the Atari is a genius! 

Program Listing 



10 PRINT 


" } " " REM SCREEN 


CLEAR 


20 PRINT 


"GIVE ME THE NUMBER OF" 


30 PRINT 


"A LETTER FROM 


THE ALPHABET" 


40 PRINT 


"FROM 1 TO 26" 




50 INPUT 


N 




60 X=N+64 






70 PRINT 


SPRINT "PRINT 




80 PRINT 


"LETTER NUMBER 


" ?N? B IS "?CHR*(X> 


90 PRINT 


: PRINT :: PRINT 




100 GOTO 


20 





41 Gee Whiz V: Second 
Alphabet Spotter 



This is a variation on the previous program. This 
Gee Whiz program has the computer ask you for a number 
from 1 to 26 and then, faster than a jackrabbit, tell you 
what letter it goes with. 

Program Listing 

10 PRINT " } " s REM CLEAR SCREEN 
20 DIM A$( 1 ) 
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30 DATA A,B*C»DjE«FiG*H»IiJ,Ki L , M 

40 DATA N < 1 P , Q , P .. S , T , U , V , W , X , Y , Z 

5© PRINT "GIVE HE! THE NUMBER OF" 

60 PRINT "A LETTER FROM THE ALPHABET" 

70 PRINT "FROM 1 TO 26" 

80 INPUT N 

90 FOR L»l TO N 

100 READ A* 

110 NEXT L 

120 PRINT SPRINT 

130 PRINT " }" :REN BUZZER 

140 PRINT "LETTER NUMBER " ?N?" IS " JA* 

150 RESTORE 

160 PRINT SPRINT 

170 GOTO 50 

42 Gee Whiz VI: Guess 
The Number 

Here it is! The world's oldest, longest running, most 
popular game: Guess The Number. 

When you start the program running, the computer 
thinks of a number and stores that away. You try to guess 
the number. If your number is too high, the computer says, 
"TOO HIGH." 

If you are too low, the computer will report "TOO LOW." 
The possible numbers range from zero to 100. 

Program Listing 

10 PRINT " > " ! REN CLEAR SCREEN 

20 DIM 0$( 1) 

30 Q*--"#" 

40 GOTO 110 

50 N=INT< 101*<RND<1 ) ) ) 

60 PRINT "GUESS THE NUMBER" , : INPUT G 

70 IF Q>N THEN PRINT "TOO HIGH" s SOTO 60 

80 IF G<N THEN PRINT "TOO LOW" : GOTO 60 

90 PRINT "RIGHT ! " 

100. PRINT ."PRINT "LET'S GO AGAIN" 
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1 10 FOR L=l TO 38 

120 PRINT 0$; 

130 NEXT L 

140 GOTO 50 

Sample Run 

******************** 

GUESS THE NUMBER ? 

46 

TOO HIGH 

GUESS THE NUMBER ? 

21 

TOO LOW 

GUESS THE NUMBER ? 

25 

RIGHT ! 

LETS GO AGAIN 

******************** 
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Number Crunching 
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Memory Tester 



Most everybody can remember numbers. At least short 
numbers with few digits. But how long a number can you 
recall in a flash? 

The computer will briefly display a number. It then will 
remove the number from your view and ask you to repeat 
what it was. If you missthree times, thecomputer will tell 
you to FORGET IT, give you your score and end the game. 
Then it will start over. 

On the other hand, if you recall correctly, the computer 
will say so and then give you a new number. The new 
number will have more digits than the previous number. 
Each time you guess correctly, the number gets longer. 

No matter how good you are, at some point you won't 
be able to recall all the digits in proper sequence. 

How many digits can you quickly recall? 

Program Listing 

10 PRINT M"!REM SCREEN CLEAR 

20 Z=l 

30 S=10*RND< 1 ) 

40 N=INT<S#Z3 

50 PR I NT " REMEMBER - -> " , N 

60 IF W=3 THEN PRINT " FORGET IT '" 

SGOTO 140 
70 FOR T=l TO 500 2 NEXT T 
80 PRINT " }""PEM CLEAR SCREEN 
90 PRINT "WHAT WAS IT", « INPUT S 
10© IF SON THEN PRINT "***YOU ARE WRONG ! " 

sW==W + i SGOTO 60 
110 PRINT "YOU ARE RIGHT ! " i FNR+1 ! Z=Z*10 
120 PRINT Rs" RIGHT SO FAR" 
130 PRINT sQOTO 30 

140 PRINT : PR I NT "YOU HAD "sR?" RIGHT" 
150 PRINT SPRINT "LET'S START OVER" 
160 PRINT "PRESS RETURN" 
170 DIM K*< 1 ) 
180 INPUT K$ 
190 CLR SGOTO 10 
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Number Reverser 



Give your Atari any three-digit number and, as a 
result of this particular programming trick, it will reverse 
the original number. For example, 789 will be transformed 
into 987. Or 123 into 321. It takes your three-digit number 
apart and reassembles it in reverse order. 

Program Listing 

IS PRINT ">"«REM SCREEN CLEAR 

20 PRINT "ENTER A THREE-DIGIT NUMBER: " 

30 INPUT N 

40 IF N<100 OR N>999 THEN 20 

50 A=INT(N/100) 

60 E= 1 NT ( i 0* ( ( N/ 1 00 ) A ) ) 

70 O I NT < 1 0* ( ( N/ i ) ( INT ( N/ 10)))) 

80 PRINT C?B?A 

90 PRINT SPRINT 
100 CLR 5 GOTO 20 



45 Exam Score Sorter 



A quick way to sort and count a book full of letter 
grades, this program permits one-key entry of a mixed 
series of data. 

We use the familiar letter grades A, B, C, D, and F. You 
may substitute any other set of five characters you wish in 
the IF statements in lines 80 to 120. 

The letter X is used to conclude the series and lead the 
computer to display final results. 

You press the appropriate keyandthe computerknows 
immediately what grade you have indicated. Key in as many 
grades as you like in any mixed order. 

When you have completed entering all grades, type in 
the letter X. The computer will report the total of A's, B's, 
C's, D's, and F's. 

We use exam-score sorting as our example here but this 
same program would be good for data collection in the field 
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in many professions. And you can stretch out the possible 
categories to 25 or more. 

To make the program run again, press the RETURN 
key on the computer's keyboard. 

Program Listing 



10 


PRINT "}":REM SCREEN CLEAR 


20 


DIM G$< 1 ) ,K* ( 1 ) 


30 


PRINT "ENTER LETTER GRADES:" 


40 


INPUT G* 


50 


IF S*«"X" THEN 140 


80 


IF Gf= M A" THEN A=A+1 : GOTO 40 


90 


IF G$«"B" THEN B=B+l«GGTO 40 


100 


IF e**"C" THEN OC+UGOTO 40 


1 1 O 


IF G*="D" THEN D=D+l*GOTO 40 


120 


IF 6**"F" THEN F=F+J«GOTO 40 


130 


GOTO 40 


140 


PRINT ">"1REM SCREEN CLEAR 


150 


PRINT "A::", A 


160 


PRINT "BS",E 


170 


PRINT "CS",C 


180 


PRINT "D:",D 


190 


PRINT "F:",F 


200 


PRINT SPRINT SPRINT 


210 


PRINT "FOR MORE, PRESS RETURT 


220 


INPUT K$ 


230 


CLR 5GOTO 10 


Sample Run 


ENTER LETTER GRADES 


A 




C 




F 




D 




B 




A 




B 




C 




C 




C 




D 
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A: 2 
B: 2 
C: 4 
D: 2 
F: 2 
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Number-Error Trapping 



Good programs, those which are well written, need 
error trapping. It's a technique for making sure persons 
communicating with the computer don't key in inap- 
propriate data or make mistakes which would cause com- 
putation problems for the computer. 

For instance, see the example program here. In line 
10 the computer asks for a number. In line 20, if the 
number is too low, it says so and goes back to line 10 to 
repeat its request. 

At line 30, if the number received at line 10 is too 
large, it says so and goes back to line 10 for a better 
choice. 

The result is only printed at line 40 when a satisfac- 
tory number has been keyed in back at line 10. 

You can set your own limits by changing the 10 in 
line 20 and the 100 in line 30. 

Program Listing 

5 PRINT "}":REI1 CLEAR SCREEN 
10 PRINT "GIVE ME A NUMBER H ?! INPUT A 
20 IF A<J0 THEN PRINT "TOO LOW": GOTO 10 
30 IF A>1 00 THEN PRINT " TOO HIGH" 

sGOTO 10 
40 PRINT A 
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Standard Deviation 



Here's a way to determine mean and standard devia- 
tion. In this particular program, you exit the entry cycle by 
entering the large number 999999999 (nine 9's) so you 
can't use 999999999 as one of your data points. 

This is a great opportunity to experiment with stan- 
dard deviation computations. Try a series of data points 
such as 3, 5, 3, 7, and 4. They should result in 





DATA F 


01 NTS TC 


>TAL s 


uL *i 




MEI AN: 






4 . 4 




VARIAN 


CE3 




2, 2399989 




3TD DE 


VI AT I ON: 




1 . 49666253 


Program Listing 






10 


PRINT 


" ) " : REM 


SCREEN CLEAR 


20 


PRINT 


"DATA PC 


I NTs 


" i i INPUT X 


30 


IF X=9 


90999990; 


THEN 


60 


40 


T=T+Xs 




N=N+1 




50 


SOTO 2 


3 






60 


A=T/N: 


•,'-S/N-A A 


2 ! D=S( 


■!R(V) 


70 


PRINT 


: PR I NT 






80 


PRINT 


"DATA PC 


I NTS ' 


"OTAL s " , T 


90 


PRINT 


"MEAN: " , 


?A 




1.00 PRINT 


"VARIAN 




1 


110 PRINT 


"BID DE 


VIATIC 


)N s " , D 


126 


] PRINT 


: PRINT 






i:.3s; 


1 CLR : 


SOTO 20 
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Percentages 



Usually it's more convenient to enter percentages as 
percent rather than having to convert to decimals in your 
head first. Of course, the computer needs that converted 
decimal value to do its work. How to get it? 

This program does the trick. You give it a percentage 
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and it converts that to a decimal. The computer does the 
hard work for you! 

Line 30 makes the actual conversion. Use this idea as 
part of a larger check-balancing, accounting or bookkeep- 
ing program and save lots of mental effort. 

Program Listing 

10 PRINT "}":REM CLEAR SCREEN 

20 PRINT " PERCENTAGE" " 5 : INPUT P 

30 D=®.01*P 

40 PRINT "DECIMALS",!) 

50 PRINT 5 GOTO 20 
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Logic Functions 



You can make your computer do things based on its 
decision that something exists. That is, in the first pro- 
gram listing here, it only will print the value of C if it finds 
that B has an existing value. If B is found to have no value, 
does not exist, C will not be printed. 

The decision is in line 40. The machine only prints C 
if B does not equal zero. Since, in line 20, we set B = 10, 
the computer will find that something exists in B and, 
thus, go ahead and do the work assigned in the last half of 
line 40. If nothing had been stored in B, the last half of line 
40 would have been ignored. 

Program Listing 

10 PRINT "}"!REM CLEAR SCREEN 

20 E=10 

30 C=10*B 

40 IF E THEN PRINT C 

In the second program here, the Atari only displays 
the results of the tests in lines 40 and 50 if the results of 
one or both is "true." 

By doing the simple math in your head, you can see 
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that the information in the right-hand side of line 20 is 
true. The information in the right-hand side of line 30 is 
false. 

Line 20 says that 6 + 8 is greater than 3 times 4. That 
is, 14 is greater than 12. That is true. 

Line 30 says that 5 + 2 is greater than 9 + 2. That is, 7 
is greater than 11. That is false. 

After reading line 20, the computer will store a 1 in B 
since the statement is true. Upon reading line 30, the 
computer will store a zero in C since the statement is 
false. 

As action drops to line 40, the computer will find the 
1 it stored in B and, thus, complete the action called for at 
the right-hand end of line 40. It will display the message, 
"B OKAY." 

At line 50, however, the computer will find "nothing" 
(zero) in C and will not complete the right-hand end of that 
instruction. It only will do the right-hand end if it finds 
something in the left-hand end. 

These logic functions are great for quick tests. 

Program Listing 

10 PRINT ")"«REM SCREEN CLEAR 
2(3 B= < 6+8 ) >< 3*4 ) 

30 C=(5+2)>(9+2) 

40 IF B THEN PRINT "B OKAY" 

50 IF C THEN PRINT "C OKAY" 
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Above & Below a Line 



Here's a way to count numbers above and below a 
cut-off line. The computer solicits numbers between 1 
and 100. Any numbers you key in which are below 1 or 
above 100 are trapped out by line 40. Entering a zero 
ends the input cycle. 

Line 50 counts the total numbers. Line 60 counts on- 
ly those numbers between 1 and 50. Line 80 counts the 
numbers from 51 to 100. Lines 90 to 130 present results. 
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Program Listing 



10 PRINT "}"sREM SCREEN CLEAR 

20 PRINT "GIVE ME A NUMBER! "ji INPUT 

30 IF Z=0 THEN 80 

40 IF Z<1 OR Z>100 THEM 20 

50 N=N+1 

60 IF Z<51 THEN B=B+1 

70 GOTO 20 

B0 A*=N-~B 

90 PRINT SPRINT 

100 PRINT "NUMBERS TOTAL : " , N 

110 PRINT "1 TO 50" , ,E 

120 PRINT "51 TO 1008 ",A 

130 PRINT s PRINT I PRINT : PRINT 

140 CLR sGOTO 20 
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Factoring 



This program finds and lists the factors of any 
number you specify. It can be used as a subroutine 
in a larger program, with appropriate attention to line 
numbers, variable names, and RETURN. 

The number of individual factors are limited by the 
DIM statement in line 20. 

The list will exclude the number itself divided by 1. 

For a quick sample run, try the number 18. You 
should find factors are 9, 6, 3 and 2. 

Program Listing 

10 PRINT ">" :REM SCREEN CLEAR 

20 DIM Q( 1700) 

25 FOR L=0 TO 999 : Q ( L ) =0 l NEXT L 

30 PRINT "NUMBERS ",: INPUT N 

40 FOR L=2 TO N/2 

50 M=N/L 

60 IF M=INT(M) THEN Q(L)#1 

70 NEXT L 
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80 PRINT "PRINT "FACTORS ARE?" 

c ?0 FOR L=l TO N/2 

1(30 IF Q(L)>1 THEN PRINT Q(L) >€OTO 120 

110 Z=Z+1 

120 NEXT L 

130 IF N=l THEN PRINT B NONE " * GOTO 150 

140 IF Z= I NT (N/2) THEN PRINT "NONE" 

150 PRINT : PRINT sGOTO 25 
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Which is Smallest? 



How can the computer tell which number is smaller 
or larger? Here's how. 

Type in the program and RUN it. It will ask for, and ac- 
cept a continuous string of numbers until you end the in- 
put routine by keying in a zero. 

Lines 40 to 60 make the decision as to which number 
is lowest. 

Program Listing 

10 PRINT "}"sREN SCREEN CLEAR 

20 PRINT "GIVE ME A NUMBER : " , : INPUT Z 

30 IF Z-fi) THEN S0 

40 N-N+l 

50 IF N=l THEN D=Z 

60 IF Z<D THEN D=Z 

70 SOTO 20 

80 PRINT SPRINT 

90 PRINT "THE SMALLEST NUMBER IS " ;D 

100 PRINT SPRINT SPRINT s PRINT 

110 CLR sGOTO 20 
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Which is Largest? 



Suppose you have a group of numbers and you would 
like to know which number is largest within the group? 
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Here's a software routine for your Atari so it can locate 
the largest number. 

You can key in as many numbers as you wish. To end 
that entry cycle, type in a zero. The computer will see that 
zero as its cue to leave the entering routine and get on 
with computing. 

Line 40 tests each new number as you enter it. If a 
new number is larger, that new number is stored in 
memory location D. At the end of the entry cycle, the 
largest number is left stored in D. Line 70 recalls that 
largest number and prints it. 

Program Listing 



10 


PRINT " >"sREM CLEAR SCREEN 


20 


PRINT "GIVE ME A NUMBER" ,1 IN 


30 


IF Z=0 THEN 60 


40 


IF Z>D THEN D-Z 


50 


GOTO 20 


60 


PRINT SPRINT 


70 


PRINT "THE LARGEST NUMBER IS 


80 


PRINT SPRINT SPRINT : PRINT 


90 


CLR 5 GOTO 20 



id 
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Reciprocals 



Key in any number. The computer will display its 
reciprocal. The actual conversion is done here at line 30. 

Program Listing 



10 


PRINT "}"sREM SCREEN CLEAR 


15 


PRINT "NUMBER TO BE CONVERTED 


20 


PRINT "TO ITS RECIPROCAL: "; 


25 


INPUT M 


30 


R=l/N 


35 


PRINT SPRINT 


40 


PRINT "RECIPROCAL OF " s. N s. " IS 


45 


PRINT SPRINT 


50 


CLR sGOTO 15 
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Dump the Integer 



Look at the number 123.456 with an eye toward how 
to get rid of the portion left of the decimal point. Keep 
only .456 and dump 123. Here's a short program to ac- 
complish that. 

Try 5.67. It will come out .67. Or 500.5 which will 
come out .5. 

Program Listing 



10 


PRINT 


11 \ 1! o 


REM 


SCREEN 


CLEAR 


20 


PRINT 


■ G I V 


E ME 


: A NUMBER" 


30 


PRINT 


"WITH A 


DECIMAL 


A tl 


40 


INPUT 


N 








50 


X=N~INT(N) 








60 


PRINT 










70 


PRINT 


" THE 


FRA 


.CTIONAL 


. PORTION" 


80 


PRINT 


" OF 


" ; N s 


" IS " ; 


x 


90 


PRINT 


! PRINT s 


PRINT : 


PRINT 


100 CLR : 


GOTO 


20 
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Averages 



Key in numbers in any order. A zero will end entry. 
The computer will tell you the average number of all 
numbers you entered. 

Line 40 finds the total number of all numbers 
entered. Line 50 finds the total of entered numbers. Line 
70 computes the average. 

Program Listing 

10 PRINT "J": REM CLEAR SCREEN 

20 PRINT "GIVE ME A NUMBER" , : INPUT Z 

30 IF Z=0 THEN 70 

40 N=M+1 
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50 


T«T+Z 








60 


GOTO 20 








70 


A=T/N 








100 


PRINT 


SPRINT 






110 


PRINT 


"THE AVE 


:rage 


IS " 5 A 


120 


PRINT 


SPRINT ! 


PRINT 


SPRINT 


130 


CLR :<3> 


OTO 20 
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Mid-Range Number 



Here's how to find the middle of a range of numbers. 
You key in as many numbers in a series as you wish. After 
the last number, key in a zero to move the program out of 
the entry cycle. 

Lines 40 to 70 select the highest and lowest numbers 
in the range. They actually define the range. Then line 90 
finds the middle point of that range. 

Program Listing 

10 PRINT MM REM SCREEN CLEAR 

20 PRINT "GIVE ME A NUMBER" , l INPUT Z 

30 IF Z=0 THEN 90 

40 N=N+1 

50 IF N=l THEN H=ZsL=2 

60 IF Z<L. THEN L=Z 

70 IF Z>H THEN H=Z 

80 GOTO 20 

90 M=L+( (H-D/2) 

100 PRINT SPRINT 

1 1 PR INT " MI D--RANGE NUMBER :",M 

120 PRINT SPRINT s PRINT l PR I NT 

130 CLR sGOTO 20 



58 Rounding Off 

The technique for rounding off numbers is easy. 
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This program, which can stand alone or be worked into a 
larger program as a subroutine, rounds a decimal to the 
nearest whole number. 

There are two views on how to round off. One holds 
that "if the number is more than five, you round up." 
Which means that exactly 0.5 rounds down. 

Another view is that "any number less than five 
rounds down." In that case exactly 0.5 rounds up. 

The first set of program lines below is for the fellow 
with the "more than five rounds up" idea. 

Program Listing 

10 PRINT ">"«REM SCREEN CLEAR 

2© PRINT "GIVE ME A NUMBER" 

30 PRINT "TO BE ROUNDED OFF" 

40 INPUT N 

50 IF N>INT(N) THEN 80 

60 R*N 

70 GOTO 130 

80 D=N~INT(N) 

90 IF D>0.5 THEN 120 

10(3 RsINT(N) 

110 GOTO 130 

120 R=INT(N>+1 

130 PRINT ")"«REM BUZZER 

140 PRINT Ni" ROUNDS OFF TO ";R 

150 PRINT SPRINT : PRINT 

160 CLR (GOTO 20 

The second set of program lines rounds off on the 
"less than five rounds down" theory. 

Program Listing 

10 PRINT ";■"» REM SCREEN CLEAR 

20 PRINT "GIVE ME A NUMBER" 

30 PRINT "TO BE ROUNDED OFF" 

40 INPUT N 

50 IF N>INT(N) THEN 80 

60 R=N 

70 GOTO 130 
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30 D=N-IMT(N) 

9(3 IF D<0„5 THEM 120 

100 R=INT(N)+1 

110 GOTO 130 

120 R«INT<N) 

130 PRINT " }" s REM BUZZER 

140 PRINT N?" ROUNDS OFF TO 

150 PRINT SPRINT : PRINT 

160 CLR : GOTO 20 
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Two-Digit Round Off 



It is possible to round off to the nearest hundredths 
place. That is, to two digits after the decimal point. Here's 
how: 

Program Listing 

10 PRINT ")"SREM SCREEN CLEAR 

20 PRINT "GIVE ME A NUMBER TO" 

30 PRINT "MORE THAN 2 DECIMAL PLACES?" 

40 INPUT II 

50 R= I NT ( 1 00*N+0 . 5 ) / 1 00 

60 PRINT 

70 PRINT N«" ROUNDS OFF TO " ; R 

SB PRINT "OR" 

90 PRINT "$"$N5 n BECOMES $"?R 

100 PRINT SPRINT SPRINT I PRINT 

110 CLR SGOTO 20 
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Percent to Decimal 



Checking, interest, sales tax, and other financial pro- 
grams are more "user friendly" if you don't have to make 
manual conversions in your head. For example, if you 
know your savings account earns 8 percent interest, and 
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you need to multiply by the decimal value for 8 percent 
(which is 0.08), it is easier to be able to enter 8 and let the 
Atari figure out the decimal value. 

Here's another way to change percentages to deci- 
mals inside a program to simplify entry by permitting 
percents to be entered as simple numbers. 

For some examples, try entering a price of 2.50 and a 
sales tax percentage of 6. Your Atari will find the bill 
totals $2.65. Or try $7.80 and 5 percent tax. The bill will be 
$8.19. Try $123.75 at 8 percent tax. The bill will total 
$133.65. 

Program Listing 



10 


PRINT "I": REM CLEAR SCREEN 


20 


PRINT "PRICE 


*", , I INPUT P 


30 


PRINT "SALES 


TAX "/.", 1 INPUT 


40 


T=0„01*R 




50 


S=T*PiB=P+S 




60 


PRINT "SALES 


TAX" , "*" 5 3 


70 


PRINT "TOTAL 


BILL", "*" ;B 


80 


PRINT : PRINT 


SPRINT SPRINT 


90 


CLR sGOTO 20 
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Every 10th Answer 



This program generates a random number in the 
range of zero to 999. However, it has a difference. It only 
shows you every tenth number it generates. 

Line 20 generates the numbers. Line 40 selects the 
tenth number from each set. 

Program Listing 

10 PRINT " >" :REM CLEAR SCREEN 

20 T=INT( 1.000*<RND<1 ) ) ) 

30 V=V+1 

40 IF 0.1*V=IIMT(0. 1*V) THEN PRINT V,T 

50 GOTO 20 
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Random Sampler 



This program strengthens your confidence in the ran- 
dom number generator built into your Atari computer. 

It generates 100 numbers between zero and 100 and 
tells you how many of those are above 49 and how many 
are below 50. See the sample RUN for several sets of 
results in our recent test. 



Program Listing 



10 PRINT " > 


1 M 


REf 


1 CLE 


:ar screen 


20 FOR L»i TC 


100 




30 X= INK 100* 


< RND ( 1 ) 


> ) 


40 IF X<50 THEN 


Y-YH 


-l 


50 IF X>49 THEN 


N=N+1 


60 NEXT L 








70 PRINT Y?" 


YEE 


ii 




80 PRINT N?" 


NO" 






90 PRINT ( PRINT 


sPRIN 


100 CLR :<3OT0 


20 






Sample Run 








51 YES 






46 


YES 


49 NO 






54 


NO 


42 YES 






52 


YES 


58 NO 






48 


NO 


56 YES 






48 


YES 


4.4 NO 






52 


NO 



0*5 Random Numbers: 
Zero To Nine 



Although you see four program lines below, what we 
really have here is a very convenient single-line program 
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for you to insert in a larger game or educational-testing 
program. 

Line 20 is the winner here. It prints a random number 
from zero to nine every time. For your use here, we print 
that number on the screen. You could just as easily have 
the computer store that random number in a memory 
location for later recall and use. 

We have added lines 10, 30 and 40 to make your 
Atari show you a whole series of random numbers from 
zero to nine. Remember, line 20 is the important single- 
line program element here. 

If you would like random numbers in the range from 
zero to 99, make it 100* in line 20. For zero to 999, use 
1000* in line 20. 

Program Listing 

10 PRINT "}"SREM SCREEN CLEAR 
20 PR I NT I NT ( 1 0* ( RND ( 1 ) ) ) 
30 FOR L=l TO 200: NEXT L 
40 GOTO 20 

D4 Random Numbers: 
Distribution 

Ever wonder how "random" are the numbers 
generated by the random-number generator in your 
Atari when you use the RND instruction? Try this pro- 
gram. 

It generates 100 random numbers in a range from 
zero to nine and counts how many there are of each 
number between zero and nine. 

By the way, while it is doing that it will display the 
message "counting" so you can tell it is working. 

At the end of its run, the Atari prints a neat chart, 
on the video display, of results. See our sample run. 

Program Listing 

10 PRINT " }":REM SCREEN CLEAR 
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20 1 


r OR L=l TO 100 


30 ! 


M=INT( 10*<RNDC 1 ) ) ) 


40 


IF N=0 THEN A«A+1 


50 


IF N=l THEN B = B+1 


60 


IF N=2 THEN OC+1 


70 


IF N=3 THEN D=D+1 


80 


IF N=4 THEN E=E+1 


90 


IF N=5 THEN F=F+1 


100 


IF H-6 THEN S=G+1 


110 


IF N»7 THEN H»H+1 


120 


IF N=8 THEN I«I+i 


130 


IF N=9 THEN J=J+1 


140 


PRINT "COUNTING" 


150 


NEXT L 


160 


PRINT "J" SREM CLEAR SCREEN 


170 


PRINT " >" JREM BUZZER 


200 


PRINT "0",A 


210 


PRINT "1",, B 


220 


PRINT "2",C 


230 


PRINT "3" , D 


240 


PRINT "4",E 


250 


PRINT "5" ,F 


260 


PRINT "6", G 


270 


PRINT "7",H 


280 


PRINT "8", I 


290 


PRINT "9", J 


30(3 


END 


Sample Run 


RUN 


RETURN 


COUNTING 





8 


] 


10 


2 


14 


3 


16 


4 


6 


5 


7 


6 


7 


7 


15 



80 



8 k 

9 13 

RUN RETURN 
COUNTING 

6 

1 12 

2 11 

3 13 

4 7 

5 12 

6 9 

7 10 

8 8 

9 12 
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Random Numbers: 
Averages 



This program generates 100 random numbers and 
totals them. Then it finds the average of all 100 numbers. 

In fact, the average number itself is a useful new ran- 
dom number. 

To make the program run again, press the RETURN 
key on the computer's keyboard. 

Program Listing 

10 PRINT "J"! REM CLEAR SCREEN 

20 FOR L=0 TO 99 

30 N=INT< 10*(RND>: 1 ) ) ) 

40 NT=NT+N 

50 PRINT "AVERAGING" 

60 NEXT L 

70 PRINT " >":REM SCREEN CLEAR 

30 AV=NT/100 

90 PRINT "TOTAL OF 100 RANDOM NUMBERS" 

100 PRINT "BETWEEN ZERO AND NINE IS ";NT 
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110 PRINT "AVERAGE IS " 5 AV 

200 DIM K*< 1 ) 

210 PRINT "FOR MORE, PRESS RETURN" 

220 INPUT K* 

230 CLR :60TO 10 
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Random Numbers: 
Sorting High/Low 



It's important to be able to sort a group of numbers to 
see what the highest and lowest values are. This program 
does that. 

The random number generator is in line 30. It gives 
numbers in a range of zero to 999. Line 50 determines the 
lowest number in the set and line 60 finds the highest 
number. 



Program Listing 



10 


PRINT " 


} " l REN SCREEN CLEAR 


20 


FOR L=0 


TO 99 




30 


N= I NT ( 1 000* ( RND ( 1 ) ) ) 




40 


IF L=0 


THEN LN=N:HN=N 




50 


IF N<LN 


THEN LN=N 




60 


IF N>HN 


THEN HN=N 




70 


PRINT " 


SORTING" 




80 


NEXT L 






90 


PRINT C 


HR*(253) sREM BUZ 


ZER 


100 


PRINT 


" >" :REM CLEAR SC 


REEN 


110 


PRINT 


"LOW NUMBER IS " 


,LN 


120 


PRINT 


"HIGH NUMBER IS 


" ,HN 


200 


END 






Sample Run 






RUN 


RETURN 




SORTING 
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LOW NUMBER IS 32 
HIGH NUMBER IS 983 

LOW NUMBER IS 14 
HIGH NUMBER IS 980 

LOW NUMBER IS 17 
HIGH NUMBER IS 985 

LOW NUMBER IS 9 
HIGH NUMBER IS 991 

LOW NUMBER IS 1 
HIGH NUMBER IS 994 



83 



Money Matters 
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Money Grows 



This section of the book includes a number of pro- 
grams relating to household money management and to 
small-business applications. This first program shows 
you how your money grows when deposited in a savings 
account at a certain annual interest rate, compounded 
monthly. 

The program will have the computer ask for the initial 
amount of principal saved by depositing in the account. 
Then the annual interest rate and the number of months 
to be displayed. The result of the run is a display of the 
changing principal as months pass and interest is added 
on. 

Line 10 clears the text screen. Lines 20 and 40 take in 
data from you. Lines 50 to 90 put out the results. Very 
handy! 

Program Listing 

IS PRINT " }"«REM CLEAR SCREEN 

20 PRINT "PRINCIPAL. *",,* INPUT P 

30 PRINT "ANNUAL INTEREST RATE 7.", S INPUT R 

40 PRINT "MUMPER MONTHS" , ,: INPUT M 

50 FOR Q«l TO M 

60 I=(P*<0„01*R> )/12 

70 P=P+I 

80 PRINT 0.:" MONTH ■ $"?P 

90 NEXT Q 

100 PRINT : PR I NT 

110 PRINT "FOR ANOTHER, PRESS RETURN" 

120 DIM K*<1) « INPUT K$ 

130 CLR s GOTO 10 



DO Shopper's Friend 

This program finds the computer asking for certain 
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information and then telling you which product brand name 
is the best buy. 

The computer wil ask for the brand name of a product, 
the quantity in the product package, and the price of the 
package. Then it will ask for the name, quantity and price 
for a second product. 

After digesting all this information, it will tell you the 
brand name of the best-buy product and show you the unit 
prices for both brand names so you can agree with the 
computer's judgment. 

For example, suppose you were looking at corn flakes 
in boxes, one by Postand one by Kellogg. Suppose the Post 
box contained 24 ounces of flakes and was priced on the 
grocery shelf at $1 .98 while the Kellogg box held 18 ounces 
and was priced at $1.59. Which would be the better buy 
based on unit price per ounce of flakes? 

Run the data through your Atari and you'll find it 
computes the Post corn flakes to be the best buy with a unit 
price of 8<P vs. the Kellogg unit price of 9C 

By the way, if the unit prices turn out to be equal, the 
computer will say they are equal. 

Program Listing 



10 


PR I NT- 


if * II u 


REM 


SCREEN CLEAR 






2© 


DIM X* 


(20) 


4 Y$ ( 


20) 


, K* < 1 ) 






30 


PRINT 


11 




SH 


OFFER'S FRIE 


ND" 


40 


PRINT 


" F I R 


ST BRAND:" , s INPUT X 


$ 


50 


PRINT 


" OUA 


NT IT 


■ys " 


, : INPUT M 






60 


PRINT 


"PR I 


CEs " 


9 ! m 


INPUT N 






70 


PRINT 


"SEC 


OMD 


BRAND:" , : INTM 


JT 


Y* 


80 


PRINT 


11 QUANT IT 


•y. II 


, : INPUT 






90 


PRINT 


"PR I 


CE s " 


1 1 " 


INPUT R 






100 


IF N/1 


M»R/ 


Q THEN 


500 






110 


IF N/i 


M<R/ 


Q THEN 


30B 






200 


PRINT 


SPRINT 


Y$: 


" IS BEST 


BU 


Y " 


210 


GOTO 


400 












300 


PRINT 


: PR I NT 


x$; 


" IS BEST 


BU 


T 


400 


PRINT 


SPRINT 


x$; 


" UN IT:", 


"$" 


S.N/M 


410 


PRINT 


Y$ 5 


" UNIT: 


" , "$" SR/Q 






420 


FOR L 


= 1 T 


8: 


PRINT :NEXT 1 






430 


PRINT 


" TO 


DO 


A NO 


THER, PRE! 


3 B 


RETURN" 


440 


INPUT 


K$ 
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450 CLR 5 GOTO 1(3 

SOS PRINT SPRINT X*?*' = ";Y$ 

510 GOTO 400 
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Car Payments 



Shopping for a new car? Use your Atari computer 
to compute quickly the potential monthly car payment 
on various models. 

Imagine you want an $8000 car and are prepared to put 
up $1000 against the purchase. You want to arrange to 
finance the car for 36 months. You know the current annual 
interest rate on car loans is 15 percent. 

Key in those few numbers and the computer instantly 
tells you the car payment will be $242.66 per month. 

Program Listing 

10 PRINT H }"sREM CLEAR SCREEN 

20 DIM K*< 1) 

30 FOR L=l TO 38s PRINT "*";:NEXT L 

40 PRINT " # AUTOMOBILE PAYMENT 

*» ; 
50 FOR L=l TO 38* PRINT "•*" ?sNEXT L 
60 PRINT "PURCHASE PRICE * : ",,: INPUT T 
70 PRINT "DOWN PAYMENT *:",,: INPUT R 
80 PRINT "NUMBER OF MONTHS! »,, 5 INPUT N 
90 PRINT "ANNUAL. INTEREST 7.: ■",,: INPUT I 
100 I»<0.01*I)/12 
110 P= < T-R >*I/<1-1/<1 + 1 ) *N ) 
1 2 P P ~ I N T ( 1 * P + . 5 ) / 1 
1 30 PR I NT : PR I NT " PAYMENT i","$";PP 
1 40 F R L = 1 T 3 8 : P R I N T " * " ; s NE X T L 
150 PRINT : PR I NT 

160 PRINT "FOR MORE, PRESS RETURN" 
170 INPUT K$ 
180 CLR :GOTO 10 
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To Nearest 95 Cents 



Many companies like to price their goods at a figure 
ending in 95 cents. For instance, a ten dollar item might 
be marked $9.95 or $10.95. 

Here's a program which demonstrates how to make 
all prices come out to the nearest 95 cents. See line 40. It 
merely takes the integer portion of the dollars number 
and adds 0.95 to it. 

Program Listing 



IS PRINT ">""REM CLEAR SCREEN 




2!3 PRINT "MANUFACTURING COST" 


• " : INPUT 


30 PRINT "PRICING MULTIPLIER^ 


" ! INPUT M 


40 P=INT(C*M}+Q,95 




50 PRINT 




6 P R I N T "RET A I L PRICE = $ " ; P 




70 PRINT : PRINT 




80 CLR :GOT0 20 




Sample Run 




MFG COST = $ 




1.12 RETURN 




PRICING MULTIPLIER = 




10 RETURN 




RETAIL PRICE = $11 .95 




RETURN 
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To the Nearest Penny 



This program is useful when you have a dollar-and- 
cents figure with more than two decimal places. For ex- 
ample, $151.6972. You need to transform $151.6972 to the 
more common $151.70 

This small program would make a good subroutine in 
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a larger set of instructions. To do so, insert GOSUB at the 
appropriate place in the larger set of program lines. 
Modify the line numbers of this small program so the 
subroutine will be located in an unused position in the 
larger listing. Change the last line of this small program to 
RETURN. Delete the first line. 

Program Listing 



10 PRINT 


" }" 5 REM CLEAR SCREEN 


20 PRINT 


"ENTER A NUMBER TO" 


30 PRINT 


"MORE THAN TWO DECIMAL PLACES" 


40 PRINT 


SPRINT "ORIGINAL AMOUNT - " s 


50 INPUT 


N 


60 R=INT< 


100*N+0»5)/100 


70 PRINT 


SPRINT "TO THE NEAREST PENNY," 


B0 PRINT 


" $ " ? N 5 " I S * " 1 R 


90 PRINT 


SPRINT 


100 CLR s 


'GOTO 40 
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Mark Up 



Mr. Storekeeper, here's just what you have needed to 
compute mark ups. This program causes your APPLE to 
find the retail price for which your percentage off would 
give the wholesale cost. 

For instance, if you got 40 percent off on an item and 
paid $60, how much was it priced at, at retail? The answer 
is $100. To put that another way, if retail price or sug- 
gested retail price is $100 and you got 40 percent off at 
wholesale, what is the wholesale price? The answer is 
$60. 

Try $40 wholesale which is 60 percent off. The 
answer is $100 retail. Or try $10 wholesale at 90 percent 
off. Retail wouid be $100. Or $75 wholesale at 25 percent 
off gives $100 retail. 

Here's a toughie! Try $19.95 wholesale cost. Mark-up 
percentage is 40. The correct retail answer is $33.25. 
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Program Listing 

IB PRINT ■ }":REM CLEAR SCREEN 

20 PRINT "WHOLESALE COST *" : INPUT W 

3(3 PRINT "NARK-UP PERCENTAGE 7„" " INPUT P 

40 D=.t 0„ 01*PsR*W/D 

50 PR I NT " RETA I L PR I CE - * " ! R 
60 PRINT SPRINT- 
TO CLE I SOTO 20 
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Percentage Off 



From earlier tips in this book, you know how to make 
your Atari convert percentages to decimals. But what if 
you want to know "percentage off?" 

For example, how much is 40 percent off? This pro- 
gram can be used to interpret 40 percent off and compute 
the decimal value needed. Try 40 percent off $100. The 
computer will change 40 percent off into decimal value 
0.60. If you multiply 0.60 times $100 you find $60 is 40 per- 
cent off $100. 

Line 50 makes the important translation. 

Program Listing 



10 PRINT 


" }" ' REN SCREEN CLEAR 


20 PRINT 


"LIST PRICE *": INPUT L 


30 PRINT 


"PERCENTAGE OFF X" i INPUT P 


40 PRINT 


" ) " :REN CLEAR SCREEN 


50 0*1-0. 


01*P 


60 PRINT 


"TO COMPUTE WITH " ", P ? " V. OFF" 


70 PRINT 


"THE DECIMAL WILL BE " ?D 


80 PRINT 




90 PRINT 


P: n X OFF $" ?L 


10(3 PRINT 


"RESULTS IN A COST OF *";D*L 


110 PRINT 


' SPRINT 


120 CLR ° 


GOTO 20 
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Dollars & Cents 



If the result of your computation is a "money" 
answer, and you don't know whether to display it in 
dollars or cents, let the computer decide. 

This program decides whether to display the output 
in dollars or cents. Line 50 in the program makes the 
decision. 

Program Listing 

H } " ! REM SCREEN CLEAR 
"QUANTITY:" , : INPUT P 
"TOTAL COST *" , s INPUT C 

THEN T==10Q*T!GOTO SB 
"EACH COST $" 5T 
: PRINT !CLR :<30TQ 20 
"EACH COST " ;T5" CENTS" 
SPRINT =CLR :<30TO 20 



10 


PRINT 


20 


PRINT 


30 


PRINT 


40 


T=C/P 


50 


IF T<1 


60 


PRINT 


70 


PRINT 


80 


PRINT 


90 


PRINT 
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Wages & Hours 



These useful lines compute total hours worked at 
regular pay and number of hours worked at time-and-a- 
half overtime. The computer then finds gross pay and 
rounds off to the nearest cent. 

The program knows that overtime starts after 40 
hours. It makes payroll bookkeeping quick and simple. 

Program Listing 

10 PRINT "}"SREM SCREEN CLEAR 
20 PRINT "HOURLY PAY RATE - *" , : INPUT P 
30 PRINT "NUMBER HOURS WORKED - " , s INPUT H 
40 IF H>40 THEN OT=H~40:<5OTO 100 
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50 W=H*P 

60 PRINT "GROSS WAGES »","**' SW 
7© END 

! 00 W= ( 40*P ) -i- ( OT*P*l „ 5 ) 
110 GOTO 60 

Sample Run 

RUN RETURN 

HOURLY PAY RATE = $ 

5.75 RETURN 

NUMBER HOURS WORKED = 

61 RETURN 

GROSS WAGES = $411,125 



76 



Invoicing 



There's a lot of repetitious math work to be done before 
you mail invoices to your customers. This software has 
the computer collect a few pertinent bits of data from you 
and then present all the various totals you need to plug in- 
to an invoice. 

It gives you a total retail price for all goods sold on the 
invoice, total sales tax if applicable, shipping charges and 
the grand total amount due you from your customer. 

Program Listing 

10 PRINT "}"".REM SCREEN CLEAR 

20 PRINT "QUANTITY SOLD" , : INPUT Q 

30 PRINT "UNIT PRICE = *" , : INPUT P 

40 PRINT "SALESTAX RATE PERCENT*" , s INPUT S 

50 PRINT "SHIPPING CHARGES - *" , : INPUT H 

60 3=0 . 01 *S : C=Q.*P : T=C*S : F=C+T+H 

70 CC= I NT ( 1 00*C+0 „ 5 ) / 1 00 

80 TT= I NT ( 1 00* T+0 . 5 ) / 1 00 

90 FF= I NT < 1 00*F+0 . 5 ) / 1 00 

100 PRINT ">":REIi CLEAR SCREEN 
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110 PRINT "TOTAL PRICE » $"", CC 

120 PRINT "SALES TAX - *" ?TT 

130 PRINT "SHIPPING CHARGES - *" ;H 
140 PRINT 

151?] PRINT "INVOICE TOTAL * $";FF 
200 END 

Sample Run 

RUM RETURN 

QUANTITY SOLD 

178 RETURN 

UNIT PRICE = $ 

53.98 RETURN 

SALES TAX RATE PERCENT = 

6 RETURN 

SHIPPING CHARGES = $ 

100 RETURN 

TOTAL PRICE = $996^. 44 
SALES TAX = $597.87 
SHIPPING CHARGES = $100 

INVOICE TOTAL = $10662.31 
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Unit Price 



Suppose you find 895 green Widgets and buy them 
for $695. How much did each green Widget cost? 
Rounded off, $7.77. 

Unit price is total price divided by quantity. The quanti- 
ty can be expressed in weight, total numbers, etc. It works 
the same whether you are talking about pounds of coffee, 
yards of concrete, gallons of ice cream, boxes of books, 
or units of Widgets. 

This program asks for the name of the item, quantity 
purchased and total price paid. It then displays quantity, 
name, total and unit price. 
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Program Listing 



10 


PRINT " 


X H » 


REM SCREEN CLEAR 




20 


DIM N*< 


20 ) 


, K$ ( 1 ) 




30 


PRINT " 


ITEM NAME IS " '- INPUT 


N* 


40 


PRINT " 


QUA 


NTITY OF ITEMS = ! 


" : INPUT Q 


50 


PRINT " 


TOT 


AL PRICE PAID FOR 


ITEMS $" 


60 


INPUT P 








70 


U=P/Q 








80 


UU=INT< 


100*U+0„5>/100 




90 


PRINT " 


> II n 


REM BUZZER 




100 


PRINT 


N$; 


" UNIT PRICE = *" 


5 UU 


110 


PRINT 


: PR I NT : PRINT 




120 


PRINT 


" TO 


DO MORE, PRESS RETURN" 


130 


INPUT 


K* 






140 


CLR IG 


OTO 


10 




Sample Run 








RUN 


RETURN 







ITEM NAME IS 

WIDGETS RETURN 

QUANTITY OE ITEMS = 

999 RETURN 

TOTAL PRICE PAID EOR ITEMS = $ 

14653 RETURN 

BEEP WIDGETS UNIT PRICE = $14.67 
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Inventory Counter 



The computer makes it very convenient to tally the 
number of items in your inventory. 

This workaholic program is set up for up to ten different 
inventory items. You code them with the numbers 1 through 
10. 

You may enter any quantity for any item code in any 
mixed sequence. You may repeat item codes and add to 
quantities as often as you like. 
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When you finish entering quantities, enter a zero in 
response to the "item code" query. The computer will 
respond with a display of grand totals for each of the ten 
item codes. 

Here's the routine: 

Line 20 asks for the item code number from one 
through 10. If you enter a zero, action jumps to line 70 for 
a display of grand totals. Otherwise, the computer 
proceeds to line 40., 

You are limited to item-code responses from zero 
through ten. If you try to enter a number larger than 10, the 
computer will discoverthatviathetest in Iine40and shipthe 
whole operation back to line 20 where it asks you again fora 
valid number. If, at line 40, it finds a valid item code number 
from one to ten it will allow the execution to goon to line 50. 

At line 50, the computer asks for the quantity of the 
item. Line 60 causes the computer to jump to the appro- 
priate line to add that quantity to the various item totals. 

Note that the portion of the program from line 201 
through line 210 has line numbers stepping up by ones 
rather than the conventional tens. This is because of the 
way line 60 jumps. It takes the item code number from one 
through ten and adds that to 200 to create a number from 
201 to 210. It then jumps to that number. 

Suppose your item code was 5. The computer would 
add 5 to 200 and get 205. It then would.jump to line 205. 
A neat sorting trick! 

Each of the lines 201 through 210end with ajumpto line 
20. This allows you to continue to enter item codes and 
quantities as long as you like. When you finish, enter zero 

for item code and line 30 will push action to line 70. 

At line 70, the computer finds instructions, through line 
90, to display the grand totals. 

Lines 100 to 130 ask if you want to do more. 

To make the program run again, press the RETURN 
key on the computer's keyboard. 

Program Listing 



10 PRINT " > " nRE 


:m screen clear 


20 PRINT "ITEM 


CODE: " , : INPUT C 


30 IF C=0 THEN 


70 
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40 


IF C>10 THEN 20 




50 1 


=>RINT "QUANTITY: 


" , : INPUT Q 


60 GOTO C+200 






70 ! 


3 RINT " }" sREM CLE 


AR SCREEN 


80 >: 


iOSUE 300 






10S 


PRINT sPRIN "FO 


R MORE, P RES 


110 


DIM K$< 1 ) 






120 


INPUT K$ 






130 


CLR ° GOTO 


10 




201 


J--.J+Q: GOTO 


20 




202 


K—K+O " GOTO 


20 




203 


L=L+<3 s GOTO 


20 




204 


M=M+Q 5 GOTO 


20 




205 


N=N+Q s GOTO 


20 




206 


R=R+Q iiGOTO 


20 




207 


s=s+s;goto 


20 




20S 


T=T+QsQOTO 


20 




209 


U-'-U+QsGOTO 


20 




210 


v' ~ \,' + G > " GOTO 


20 




220 


END 






300 


PRINT "is" 


i J 




310 


PRINT "2S" 


,K 




320 


PRINT "3:" 


,L 




330 


PRINT "4:" 


»M 




340 


PRINT "5:" 


,N 




350 


PRINT "hi" 


,R 




360 


PRINT "7:" 


Q 




370 


PRINT "8"" 


»T 




380 


PRINT "?:" 


,U 




390 


PRINT "10: 


? V 




400 


RETURN 







RETURN 1 
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Daily Code 



Need to have a secret code each day of the year? 
This software generates a list of code numbers. Of 
course, you can change the list every day if you wish. 
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Program Listing 



10 PRINT ' 


1 } " : REM 


SCREEN 


CLEAR 




20 gosue :; 


J00 








100 


PRINT 


" SUNDAV 


' '. " , , C i G 


OSUB 


200 


1 1 


PRINT 


" MONDAY 


' : " , , C : G 


OSUE 


200 


120 


PRINT 


"TUESW 


iY i " i » C : 


GOSUE 


200 


130 


PRINT 


"WEDNES 


>DAY : " , C 


s GOSUE 20B 


140 


PRINT 


"THURSDAY: 11 , C« 


GOSUE 


200 


150 


PRINT 


"FRIDAY 


' s " , , C : G 


OSUE 


200 


160 


PRINT 


"SATURE 


)AY: " , C: 


END 




200 


C=INT( 10000M 


RND < 1 ) ) 


) 




210 


IF C<: 


1000 THEN 200 






220 


RETURN 









Colorful Graphics 
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Aztec Art 



In this Colorful Graphics section of the book, you will 
find a number of interesting new and different applica- 
tions for the graphics capabilities of the ATARI computer. 
These can be modified, combined or otherwise changed 
to suit your own needs. Our titles represent only the 
thoughts we had when we watched these programs run. 
You might like to dream up new and different titles for 
your own creations made by modifying these programs. 

Colors can be changed. Screen locations can be 
changed. Movement can be reversed. Try all of these pro- 
grams. You'll like them! 

Our first program reminded us of Aztec artwork. 

Program Listing 



10 


GRAPHICS 3- 


+■ 1 6 








20 


FOR L-l TO 





s 


FEP - 


-1 




30 


FOR N=l TO 


i: 


? 








40 


COLOR L 












50 


PLOT 20, 10 












60 


X=20-< 10*COS< 


N. 


.''6*3. 


14) 


) 


70 


Y=10+< 10*S 


IN< 


:n. 


/6*3. 


1 4 ) 


) 


80 


DRAWTO X,Y 












90 


NEXT N 












100 NEXT L 













110 GOTO 20 



81 



Sine Wave 



Note that some complex screen art can be created 
with only a few program lines. You will want to refine 
these programs to make them even shorter. 

By the way 3+16 used in line 10 is there to select 
graphics screen three and make it a full screen, rather 
than one with some text window at the bottom. The + 16 
accomplishes the full-screen trick. 
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Program Listing 

10 GRAPHICS 3+16 

20 COLOR 1 

30 FOR X=l TO 39 

40 Y=SJ:N(X) + 1(3 

60 PLOT X , Y 

70 NEXT X 

80 GOTO 80 
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Hold That Pose 



The illusion of motion is important in computer 
graphics. But, to make a character move, you have to draw 
it first! 

Here we have created a friendly little stick man. Lines 
100 to 140 create the head. Lines 150 and 160, the eyes. 
Line 170, the nose. Lines 180 and 190, the mouth. 

Lines 200 to 280 create the body, legs and arms. But, 
having created him on the graphics screen, how can we 
keep him there? By using a freeze frame as we have done 
here in line 300. 

Line 300 is an endless loop, holding action at line 300 
forever, until you press the break key. 

Run this program first. Then, go on to Tip Number 83. 

Program Listing 

10 GRAPHICS 9 
100 PLOT 35,50 
110 DRAWTO 45 .,50 
120 DRAWTO 45,70 
130 DRAWTO 35,70 
140 DRAWTO 35,50 
150 PLOT 37,55 
160 PLOT 43,55 
170 PLOT 40,60 
180 PLOT 37,65 
190 DRAWTO 43,65 
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200 


PLOT 40, 7C 


3 


210 


DRAWTO 40, 


100 


220 


DRAWTO 45, 


100 


230 


DRAWTO 35, 


100 


240 


DRAWTO 40, 


100 


250 


DRAWTO 40, 


130 


260 


DRAWTO 45, 


140 


270 


DRAWTO 40, 


130 


280 


DRAWTO 35, 


140 


300 


GOTO 300 
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Okay, Now Wave 



This is a development of the stick man drawn and 
frozen on the screen in Tip Number 82. Here, we add pro- 
gram lines to draw and seem to move the stick man's left 
arm on the right side of the TV screen. 

This program is the same as the previous program, 
through line 280. Change line 300 and add what we show 
here through line 430. Here's how it works to create the il- 
lusion of arm movement: 

Lines 300 to 320 draw the arm in an upward position. 
Line 330 is a time-delay pause so you have time to see the 
arm in an upward position. Lines 340 to 360 erase the 
same arm. 

Lines 370 to 390 draw a downward arm. Lines 400 to 
420 erase the downward arm. Line 430 makes everything 
start over again with the upward arm. The result is the ap- 
pearance of arm motion. Very clever, these stick men! 

Program Listing 



10 GRAPHICS 9 




20 < 


:olor 8 






100 


PLOT 3f 


i,50 


I 


110 


DRAWTO 


45, 


50 


120 


DRAWTO 


45, 


70 


130 


DRAWTO 


35, 


70 


140 


DRAWTO 


35, 


50 
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150 


PLOT 37,55 


160 


PLOT 43,55 


170 


PLOT 40,60 


180 


PLOT 37,65 


190 


DRAWTO 43,65 


200 


PLOT 40,70 


210 


DRAWTO 40, 100 


220 


DRAWTO 45, 100 


230 


DRAWTO 35, 100 


240 


DRAWTO 40, 100 


250 


DRAWTO 40, 130 


260 


DRAWTO 45, 140 


270 


DRAWTO 40, 130 


280 


DRAWTO 35, 140 


300 


COLOR 8 


310 


PLOT 45, 100 


320 


DRAWTO 50,85 


330 


FOR T=l TO 200 


340 


COLOR 


350 


PLOT 50,85 


360 


DRAWTO 45, 100 


370 


COLOR 8 


380 


DRAWTO 50, 115 


390 


FOR T=l TO 200 


400 


COLOR 


410 


PLOT 50, 115 


420 


DRAWTO 45, 100 


430 


GOTO 300 
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NEXT T 



:NEXT T 



Moving Illusion 



Beware! This constantly-moving image may drive 
you batty. 

Program Listing 

10 PRINT " }" sREM BUZZER 

20 GRAPHICS^ 10 

30 POKE 704,96 

40 POKE 705,22 

104 



50 


poke;: 7 


06,38 






60 


POKE 7 


07,54 






70 


POKE 7 


03,70 






80 


POKE 7 


09, 36 






90 


POKE 7 


10, 104 






100 


POKE 


7 1 J. , 1 20 






110 


POKE 


712,1 80 






120 


FOR X 


=1 TO 64 






130 


LL=19 


1~X !LR=7 i 


9--X 




140 


M=r1*( 


M<8)+1 






150 


COLOR 


M 






160 


PLOT 


X , X 






170 


DRAWT 


X,LL 






180 


DRAWT 


LR,LL 






190 


DRAWT 


LR, X 






200 


DRAWT 


X , X 






210 


NEXT 


x 






220 


A=PEEI 


K (712): £.- 


=PEEK 


(711 ) 


230 


D=PEE1 


•((709) !E" 


■PEEK 


( 703 ) 


240 


G=PEEK(706) lH- 


=PEEK 


( 705 ) 


250 


POKE 


7 1 2 , E 






260 


POKE 


7 1 1 , C 






270 


POKE 


7 1 , D 






280 


POKE 


709, E 






290 


POKE ■ 


708, F 






300 


POKE 


707 , G 






310 


POKE 


706, H 






320 


POKE 


705 , A 






330 


GOTO : 


220 







:C=PEEK<710) 

F=PEEK(707) 
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Super Moving Illusion 



If you liked Tip Number 84 above, you'll love this one! 
Here the background color changes as well as the color of 
the lines. Very striking! 
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Program Listing 



10 PRINT " }" sREM BUZZER 




20 ( 


GRAPHICS 10 






30 1 


3 OKE 704, 96 






H-0 1 


=>OKE 705,22 






50 1 


=>OKE 706,38 






60 1 


D OKE 707,54 






70 1 


=>OKE 708,70 






80 1 


3 0KE 709,86 






90 1 


^OKE 710, 104 






100 


POKE 711 , 120 






110 


POKE 712, 180 






120 


FOR X = i TO 64 






130 


LL=191-XsLR=7 ( 


?-X 




140 


M=M*<M<8)+1 






150 


COLOR M 






160 


PLOT X . X 






170 


DRAWTO LR, X 






1S0 


DRAWTO LR,LL 






190 


DRAWTO X,LL 






200 


DRAWTO X,X 






210 


NEXT X 






220 


J::. 9 6 






230 


A^PEEK>712> IB' 


= PEEK(711 ) »C« 


=PEEK(710) 


240 


D=PEEK(709) IE' 


=PEEK(708) IF" 


=PEEK<707> 


250 


G=PEEK<706> :H= 


*PEEK(705) 




260 


POKE 7 1 2 , B 






270 


POKE 7 1 1 , C 






230 


POKE 710, D 






290 


POKE 709, E 






300 


POKE 708, F 






310 


POKE 707, G 






320 


POKE 706, H 






330 


POKE 705, A 






340 


J=J+1 






350 


POKE 704 , J 






360 


IF J=255 THEN 


J=l 




370 


GOTO 230 
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The Seamstress 



It's either somebody sewing or a spider weaving a 
web or something... 

Program Listing 

10 GRAPHICS 8+16 

20 COLOR 255 

30 PLOT 160,96 

40 X=INT(320*(RND( 1 ) ) ) 

50 Y=INT( 192*(PNDC 1 ) ) ) 

60 DRAWTO X,Y 

70 GOTO 40 
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Swimming Fish 



Here's another interesting demonstration of your 
ability to erase images from the screen. The erasing of the 
fish, here, creates an illusion of motion across the screen. 

The fish appears, swims right to left across the 
screen, and concludes with an end of swim message. 

Program Listing 



10 


GRAPHIC 


;S 8+16 




20 


X=319!V 


'=96 




30 


COLOR (Z 


I 




40 


PLOT X-- 


•20, Y 




50 


DRAWTO 


X-10, Y- 


10 


60 


DRAWTO 


X, Y+10 




70 


DRAWTO 


X-10, Y 




80 


DRAWTO 


X,Y-"10 




90 


DRAWTO 


X-10, Y+ 


10 


100 DRAWTC 


1 X-20,V 




110 X=X-1E 


I 




120 IF X<2 


:l THEN 


30 


130 COLOR 


255 
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140 PLOT X-20,Y 

15(3 DRAWTO X-10,Y 10 

160 DRAWTO X, Y+10 
170 DRAWTO X.--10, Y 
180 DRAWTO X,Y-10 

190 DRAWTO X 10, Y+10 

200 DRAWTO X-20,Y 

210 GOTO 30 

300 PRINT "END OF SWIM" 



OO Circling Dot 

More round graphics on your rectangular picture 



tube. 

Program Listing 

10 GRAPHICS 3+16 

20 FOR N~l TO 12 

30 COLOR 1 

40 PLOT 20, 10 

50 X=20--< 10*COS(N/6*3„ 14) ) 

60 Y= 1 0+ ( 1 0*S I N ( N /6*3 . 1 4 ) ) 

70 PLOT X,Y 

80 FOR T=l TO 50 s NEXT T 

90 COLOR 

100 PLOT X,Y 

110 NEXT N 

120 GOTO 20 
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Box The Screen 



Here's how to draw a box around the graphics 
display-screen area on your TV monitor. Lines 30 to 70 
draw the vertical sides of the box while lines 80 to 120 
draw the horizontal bottom and top. Line 130 is a freeze- 
frame loop to hold the picture so you can see it. 
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Program Listing 



10 GRAPHICS 3- 


!-16 


20 COL. OR i 




30 FOR Y=0 TO 


23 


40 FOR X=0 TO 


39 


50 PLOT X , Y 




60 NEXT X 




70 NEXT Y 




80 FOR X=0 TO 


39 


90 FOR Y=0 TO 


23 


100 PLOT X,Y 




110 NEXT Y 




120 NEXT X 




130 GOTO 130 





•STEP 23 



3TEP 39 



90 Window Twinklers 

Well, what would you call them? 
Program Listing 



10 GRAPHICS 3+16 




20 COLOR 1 




30 FOR Y=0 TO 23 


STEP 23 


40 FOR X=0 TO 39 




50 PLOT X,Y 




60 NEXT X 




70 NEXT Y 




80 FOR X = TO 39 


STEP 39 


90 FOR Y=0 TO 23 




100 PLOT X,Y 




110 NEXT Y 




120 NEXT X 




130 C«INT<5*(RND< 


1 ) ) ) 


140 COLOR C 




150 X=INT(40*(RND 


> < 1 ) ) ) 


160 IF X<1 OR X>38 THEN 


170 Y=INT> 24*<RND<1) ) ) 



150 
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180 IF Y<1 OR Y>22 THEN 170 
190 PLOT X,Y 
200 GOTO 130 
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Horn-ln-Funnel Art 



The background color keeps changing. 
Program Listing 



10 


GRAPHICS 10 


20 


FOR 1=1 TO 96 STE 


30 


POKE 704, Z 


40 


POKE 705,22 


50 


POKE 706,33 


60 


POKE 707,54 


70 


POKE 708,70 


80 


POKE 709,86 


90 


POKE 710, 104 


100 


POKE 7 1 1 , 1 20 


110 


POKE 712, 180 


120 


FOR X = l TO 64 


130 


LL~i91~XsLR=79~X 


140 


: C#( C<8 ) +1 


150 


COLOR C 


16(3 


PLOT X , X 


170 


DRAWTO X,LL 


180 


DRAWTO LR,LL 


190 


DRAWTO LR, X 


200 


DRAWTO X,X 


210 


NEXT X 


220 


NEXT Z 


230 


GOTO 230 
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Blackboard 



This program appears to draw a blackboard on the 
screen. You can write messages on it, draw football plays, 
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etc. Use PLOT and DRAWTO to create art or words on this 
electronic chalkboard. 

Program Listing 

1© GRAPHICS 10 

20 POKE 704, 112 

30 COLOR 255 

40 PLOT 70, 100 

50 DRAWTO 70, 10 

60 DRAWTO 10, 10 

70 POSITION 10, 100 

80 POKE 765 , 1 

90 XIO IS, #6, 0,0, 
100 GOTO 100 



h a ■ ii 
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Snowfall 



White flakes sprinkle down the screen, over and 
over— until you press the BREAK key. It may be useless 
but it's a lot of fun to watch! 

Program Listing 

10 GRAPHICS 3+16 

20 FOR L=l TO 84 

30 PRINT #6, "*" 5 

40 NEXT L 

50 GRAPHICS 

60 GOTO 10 
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Making Things Move 



Movement on the computer display screen is an illu- 
sion. As in any television picture, the turning on and turn- 
ing off of dots in a pattern across a screen can seem to 
provide motion to an object drawn on the face of the tube. 
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There are a number of ways to get the look of motion. 
Let's send a dot across the screen: 

Program Listing 

10 GRAPHICS 3+16 

20 FOR X=0 TO 39 

30 COLOR 65 

40 PLOT X, 10 

50 FOR T=l TO 50 : NEXT T 

60 COLOR © 

70 PLOT X, 10 

80 NEXT X 

90 GOTO 20 
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Draw A Box 



Line 10 establishes the graphics screen. Line 20 sets 
the background color. Lines 30 to 70 draw a box. Line 100 
is a freeze-frame device. Now you know how to draw a 
box! 

Program Listing 



10 


GRAPHICS 10 


20 


POKE 704,96 


25 


COLOR 255 


30 


PLOT 10, 10 


40 


DRAWTO 70, 10 


50 


DRAWTO 70, 100 


60 


DRAWTO 10,100 


70 


DRAWTO 10,10 



100 GOTO 100 

v/D Luminance Demonstrator 

Take a look at 116 shades of a color! 
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Line 10 selects graphics mode 9 which permits 116 
shades of a color. Line 20 sets the background to the 
color desired. We have selected purple for this example. 

The FOR/NEXT loop in lines 30 to 70 causes the com- 
puter to run through the shades. Line 40 selects the 
shade. Line 50 draws the screen pattern. Line 80 is a 
freeze frame to hold the picture. 

Program Listing 

10 GRAPHICS ? 

20 SET COLOR 4,6,0 

30 FOR X-0 TO 15 

40 COL. OR X 

50 PLOT X,0 

60 DRAWTO X, 3.91 

70 NEXT X 

30 GOTO 8i7J 
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Draw A Line 



It may be an odd way to achieve the goal but these 
programs draw a line across the screen. 

The first program, below, paints from top to bottom 
down the screen, then left to right, leaving a dark horizon- 
tal line at about the middle of the screen. 

Program Listing 



10 


GRAPHICS 3" 


i- 1 6 


20 


FOR X=0 TO 


39 


25 


FOR Y=0 TO 


23 


30 


COLOR 65 




40 


PLOT X,Y 




50 


FOR T=l TO 


50 


60 


COLOR 




70 


PLOT X, 10 




f .J 


NEXT Y 




80 


NEXT X 




90 


GOTO 90 





NEXT T 
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The second program, below, paints left to right and 
then downward, leaving the same dark horizontal line 
across the screen. 

Program Listing 

10 GRAPHICS 3+16 

15 FOR Y~@ TO 23 

20 FOR X= ; TO 3? 

30 COLOR 65 

40 PLOT X,Y 

50 FOR T=l TO 50! NEXT T 

60 COLOR S 

70 PLOT X, 10 

80 ME XT X 

85 NEXT Y 

90 GOTO 90 
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Flashing Graphics Cursor 



Use this flashy little indicator to spot whatever you 
like on the graphics screen. Change the size of the cursor 
spot by changing the ranges of X and Y values in lines 
1030 and 1040. 

Program Listing 

1000 GRAPHICS 10 

10.1.0 FOR L=l TO 8 

1020 COLOR L 

1030 FOR X = 10 TO 12 

1040 FOR Y=18 TO 20 

1050 PLOT X,Y 

1060 NEXT Y 

1070 NEXT X 

1080 NEXT L 

1090 GOTO 1010 
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Boxed Title 



Here's a neat, different way to place a box around a 
program title— or anything else you might like to 
highlight. 

Line 10 selects graphics mode 2. The + 16 makes it 
full-screen. Lines 20 and 30 position and print the title. 

Lines 40 to 80 create the box around the title. Line 
100 is a freeze- frame loop, used here so you can review 
your handywork. 

Program Listing 



#,; 



10 GRAPHICS 2+16 




20 PRINT #6: PRINT 


#6:: PRINT 


30 PRINT #6?" 


TITLE" 


40 PLOT 1 , 1 




50 DRAWTO 19, 1 




60 DRAWTO 19,4 




70 DRAWTO 1,4 




80 DRAWTO 1 , 1 




100 GOTO 100 
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Draw Bar Graphs 



Drawing graphs on the video screen are a popular 
form of communication today. This program establishes a 
bar graph on the ATARI display. 

We have selected the business-like example, shown 
here, to demonstrate how you go about setting up a bar 
graph on the TV screen. 

Lines 10 to 50 are used to input data needed to be 
graphed. We have selected annual profits as the subject 
for our graph. 

Line 10 asks for total profits in the year 1978; line 20 
for 1979; etc. For the purposes of our graph, the maximum 
value you can enter will be 13. When the computer asks 
for the annual-profits data, give it numbers from 1 to 13. 
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Line 100 establishes full-screen graphics mode 
number 2. Lines 120 and 130 print the heading. 

Lines 200 to 230 create the first-year bar on the graph. 
Lines 300 to 330 create the second-year bar, and so on 
through line 630 which concludes the last-year bar on the 
graph. 

Line 1000 is a freeze frame to hold the picture on the 
screen for you to see. Press BREAK to interrupt the 
freeze-frame loop. 



Program Listing 



10 PR I N T "19 7 8 P R O F I T S s " , I I N P U T 


A 


20 PRINT "1979 PROFITS: ",: INPUT 


B 


30 PRINT "1980 PROFITS:" ,: INPUT 


C 


40 PRINT "1981 PROFITS! ",: INPUT 


D 


50 PRINT "198? PROFITS:" , : INPUT 


E 


100 GRAPHICS 2+16 




120 PRINT #6? " PROFITS" 




130 PRINT #6 




200 PRINT #6? " 19 7a" 




210 PLOT 6,2 




220 DRAWTO 6+A,2 




230 POSITION 0,4 




300 PRINT #6; "1979" 




310 PLOT 6,4 




320 DRAWTO 6+B , 4 




330 POSITION 0,6 




400 PRINT #65 " 1980" 




410 PLOT 6,6 




420 DRAWTO 6 + C6 




43(3 POSITION 0,8 




500 PRINT #6; "1981" 




510 PLOT 6,8 




520 DRAWTO 6+D,S 




530 POSITION 0, 10 




600 PRINT #6; "1982" 




610 PLOT 6, 10 




620 DRAWTO 6+E, 10 




630 POSITION 0, 12 




1000 SOTO 1000 
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Sample Run 



PROFITS 



1978 
1979 
1980 
1981 
1982 
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Background Cycler 



Need a fast way to review the various background 
colors available on the graphics screen? This program 
uses graphics mode 10 and cycles thtough the many 
background colors. 

The appropriate background color is POKE'd into 
memory location 704 at line 1020. 

The FOR/NEXT loop in lines 1010 to 1040 causes the 
cycling through the background-color numbers. 

Line 1030 is a time-delay loop, placed there to allow 
you to study each color briefly before it is replaced by a 
new color. To add more delay, increase the number 100 in 
line 1030. To speed things up, decrease the number 100 in 
line 1030. 

Program Listing 



i STEP L: 

NEXT T 



1(300 


GRAPHICS 10 


10.1.(3 


FOR L-15 TO 25 


1020 


POKE 704 , L 


1030 


FOR T=l TO 100 


1040 


NEXT L 


1050 


GOTO 1010 
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Appendix 



Appendix A: ATARI BASIC Words 

Here is a handy list of all the words in the ATARI ver- 
sion of the BASIC computer language: 



ABS absolute value function 

ADR string memory address function 

AND logical expression true only if both are 

ASC finds ASCII character number 

ATN arctangent 

BYE leave BASIC; write directly on screen 

CLOAD load program from tape 

CHR$ converts ASCII number to character 

CLOG base 10 logarithm 

CLOSE close file at end of I/O job 

CLR undimensions strings and arrays 

COLOR select color register for graphics 

COM same as DIM 

CONT continue, after BREAK or STOP 

COS cosine 

CSAVE sends data from computer to tape 

DATA stores info in program line 
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DEG switch to trig degrees from radians 

DIM reserves memory for array or string 

DOS displays disk menu 

DRAWTO draws line between points 

END concludes a program run 

ENTER input data or programs 

EXP e to a power 

FOR sets range of FOR/NEXT loop 

FRE shows remaining available memory 

GET input single byte of data, with disk 

GOSUB branch to subroutine 

GOTO branch to a line 

GRAPHICS selects graphics mode 

IF decision maker 

INPUT stops for keyboard input of data 

INT portion of number left of decimal 

LEN number of characters in a string 

LET optional; assigns value to variable 

LIST display contents of program memory 

LOAD send program from disk to computer 

LOCATE stores specific graphics point 

LOG natural logarithm 

LPRINT print on paper with line printer 

NEW erase all program and data memory 

NEXT other half of FOR/NEXT loop 

NOT not true =1; true =0 

NOTE used with disk 

ON use with GOTO or GOSUB branches 

OPEN opens a file for I/O 

OR if either true, a 1; if both false 

PADDLE position of game paddle 

PEEK look in one memory location 

PLOT light a single dot on video screen 

POINT for disk operations 

POKE put info in one memory location 

POP abnormal departure from GOSUB loop 

POSITION move to specific video screen point 

PRINT causes output from the computer 

PTRIG status of trigger button on paddle 

PUT output one data byte from computer 

RAD trig info in rads, not degrees 

READ get info from DATA lines 
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REM ignore these remarks 

RESTORE allows DATA lines to be re-read 

RETURN back from subroutine to main program 

RND random number between and 1 

RUN execute a program 

SAVE store data or program on disk 

SETCOLOR store color data 

SGN find sign of a number 

SIN sine 

SOUND control pitch, volume, tone 

SQR square root 

STATUS asks state of I/O device 

STEP size of skip in FOR/NEXT loop 

STICK position of stick game controller 

STRIG determines if stick trigger button is 

pressed 

STOP temporary program run halt 

STR$ changes number to character string 

THEN IF true, does what follows 

TO part of FOR/NEXT loop range 

TRAP on input error, jumps to a line 

USR machine-language subroutine 

VAL converts string to a number 

XIO I/O in graphics or disk work 
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Appendix B: Error Messages 

These are the messages your ATARI is trying to send 
you when it presents an error number. Naturally, it tells 
you the line number where the error is located. 

Number Message 

2 you have used up all available memory 

3 the number can't have the value it has 

4 you are only allowed 128 different variable 
names 

5 your string is longer than the space you 
dimensioned 

6 you are tryng to READ more DATA than you 
have available 

7 a number is greater than 32767 

8 you are trying to put string data in a number 
variable 

9 you have not dimensioned an array or string 
properly 
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10 you simply have too many GOSUBs 

11 you either have tried to divide by zero or else 
you want a result too large or too small for 
the computer to handle 

12 you are using GOSUB or GOTO or THEN to 
jump to a nonexistent line number 

13 you have a NEXT but there was no FOR 

14 the statement simply is too long or too com- 
plex for BASIC to handle 

15 again you have tried a NEXT or a RETURN 
without the necessary FOR or GOSUB 

16 there is a RETURN without a GOSUB 

17 don't POKE there; try NEW to get out of this 
mess; if that doesn't work, kill the power and 
turn it back on and re-enter the program 
without POKEs 

18 you are trying to use an invalid string 
character 

19 there's not enough memory to complete the 
LOAD 

20 you have a device number larger than 7 or 
equal to zero 

21 you are trying to LOAD a no-LOAD file 

128 you hit the BREAK key while the machine 
was doing something 

129 the input/output control block already is 
open 

130 you are calling for a nonexistent device 

131 you have sent a read command to a write- 
only device, the printer 

132 you can't use that command for that device 

133 you forgot to open the file or device 

134 that is an illegal device number 

135 you are trying to send a write command to a 
read-only device 

136 you have read to the end of the file 

137 you are trying to read a record longer than 
256 characters 

138 the device is turned off, dummy 

139 you are getting garbage at a serial port or 
else you have a bad disk drive 

140 input framing error 
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141 your cursor is out of range for that mode 

142 serial bus data frame overrun 

143 serial bus data frame checksum error 

144 you are trying to write on a write-protected 
disk 

145 something's wrong with what you just wrote 

146 that function is not implemented 

147 you don't have enough memory available for 
the graphics mode you selected 

160 that's a drive number error 

161 you have too many files OPENed 

162 the disk is full 

163 you've blown the whole bit 

164 file numbers don't match, the disk links are 
messed up 

165 that's a file name error 

166 there's an error in the POINT data length 

167 that file is locked 

168 that command is invalid 

169 the directory is full 

170 that file cannot be located anywhere 

171 the POINT is invalid 
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books from ARCsoft Publishers 

For the TRS-80 PC-1, PC-2, Sharp PC-1211, PC-1500: 

99 Tips & Tricks for the New Pocket Computers (PC-2/PC-1500) 

128 pages $7.95 ISBN 0-86668-019-5 

101 Pocket Computer Programming Tips & Tricks 

128 pages $7.95 ISBN 0-86668-004-7 

Pocket Computer Programming Made- Easy 

128 pages $8.95 ISBN 0-86668-009-8 

Murder In The Mansion and Other Computer Adventures 

96 pages $6.95 ISBN-0-86668-501-4 

50 Programs in BASIC for Home, School & Office 

96 pages $9.95 ISBN 0-86668-502-2 

50 MORE Programs in BASIC for Home, School & Office 

96 pages $9.95 ISBN 0-86668-003-9 

35 Practical Programs for the Casio Pocket Computer 

96 pages $8.95 ISBN 0-86668-014-4 

Pocket-BASIC Coding Form programming worksheet tablets 

40-sheet pad $2.95 ISBN 0-86668-801-3 

For the TRS-80 Color Computer: 

101 Color Computer Programming Tips & Tricks 

128 pages $7.95 ISBN 0-86668-007-1 

55 Color Computer Programs for Home, School & Office 

128 pages $9.95 ISBN 0-86668-005-5 

55 MORE Color Computer Programs for Home, School & Office 

112 pages $9.95 ISBN 0-86668-008-X 

Color Computer Graphics 

128 pages $9.95 ISBN 0-86668-012-8 

The Color Computer Songbook 

96 pages $7.95 ISBN 0-86668-01 1-X 

My Buttons Are blue and Other Love Poems 

96 pages $4.95 ISBN 0-86668-013-6 

Color Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-802-1 

For the APPLE Computer: 

101 APPLE Computer Programming Tips & Tricks 

128 pages $8.95 ISBN 0-86668-015-2 

33 New APPLE Computer Programs for Home, School & Office 

96 pages $8.95 ISBN 0-86668-016-0 

APPLE Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-803-X 

For the ATARI 400 and 800 computers: 

101 ATARI Computer Programming Tips & Tricks 

128 pages $8.95 ISBN 0-86668-022-5 

31 New ATARI Computer Programs for Home, School & Office 

96 pages $8.95 ISBN 0-86668-018-7 

ATARI Computer BASIC Coding Form program worksheet tablets 
40-sheet pad $2.95 ISBN 0-86668-806-4 
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books from ARCsoft Publishers 

For the Sinclair ZX-81 and TIMEX/Sinclair 1000 computers: 

101 TIMEX 1000 and Sinclair ZX-81 Programming Tips & Tricks 

128 pages $7.95 ISBN 0-86668-020-9 

37 TIMEX 1000 & Sinclair ZX-81 Programs for Home, School & Office 

96 pages $8.95 ISBN 0-86668-021-7 

TIMEX 1000 & Sinclair ZX-81 BASIC Coding Form program worksheets 
40-sheet pad $2.95 ISBN 0-86668-807-2 

For the electronics hobbyist: 

25 Quick-N-Easy Electronics Projects 

96 pages $4.95 ISBN 0-86668-023-3 

25 Electronics Projects for Beginners 

96 pages $4.95 ISBN 0-86668-017-9 

25 Easy-To-Build One-Night & Weekend Electronics Projects 

96 pages $4.95 ISBN 0-86668-010-1 

Computer program-writing worksheets: 

Each in tablet of 40 sheets with stiff backing 

Universal BASIC Coding Form $2.95 

IBM Personal Computer BASIC Coding Form $2.95 

ATARI Computer BASIC Coding Form $2.95 

Pocket Computer BASIC Coding Form $2.95 

APPLE Computer BASIC Coding Form $2.95 

Color Computer BASIC Coding Form $2.95 

TIMEX 1000/Sinclair ZX-81 BASIC Form $2.95 

ISBN: International Standard Book Number 



ARCsoft Publishers 

Post Office Box 132 
Woodsboro, Maryland 21798 
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ATARI Computer Book II 

101 ATARI Computer 
Programming Tips & Tricks 

by Alan North 

Here's a giant collection of practical, useful, efficient program- 
ming techniques and operating shortcuts, for the ATARI model 400, 
600 and 800 personal computers, right out of a master programmer's 
notebook. 

Loaded with hints, secrets, tips, tricks and easy-to-follow instruc- 
tions, this book shows you how to handle routine programming chores 
on the Atari more quickly, do special effects, make your computer 
work for you— faster and more efficiently. 

Each of the 101 computer programming tips in this book features 
a complete ready-to-run program. Each will run immediately, as you 
find it in this book, or it easily can be included in a larger set of instruc- 
tions to your computer. All 101 programs have been tested thoroughly 
on the ATARI 400/800 Computer and are ready to type in and run. 

Learn insider's how-to secrets for using the special, exciting 
BASIC words READ, DATA, RESTORE, INPUT, LEN, GOSUB, RETURN, 
VAL, ASC, CHR$, PRINT, DIM, FOR, NEXT, IF, THEN, DRAWTO, SET- 
COLOR, and many more. 

Sections in this book include a detailed Introduction; Fun and 
Games; Text on Text; Gee Whiz; Number Crunching; Money Matters; 
Colorful Graphics; and a handy Appendix. 

You will find special techniques for graphics; colorful program 
titles and billboards; coin toss; dice throw; secret message; bell 
ringer; mystery clues; code groups; 60-second timer; sorting; ordering; 
searching; averaging; passwords; sentence writer; creating tables; 
memory tester; exam sorter; rounding off; random numbers; shopper's 
friend; interest on money; car payments; wages 7 hours; percentage 
off and mark up; invoicing; inventory counter; lists; two dozen exciting 
graphics programs; and many more. 

You'll learn what to do, how to do it, when to make changes and 
when not to, all from this info-packed ATARI computer programmer's 
handbook of tips and tricks. 

ARCsoft Publishers 

Woodsboro, Maryland 

ISBN 0-86668-022-5 



